[Free Pascal] [Fedora] Exec ou fpexecve

[Fedora] Exec ou fpexecve

Bonjour à tous,

Je viens de compiler un programe Pascal provenant de windows sur un systeme fedora.
Lorsque j'utilise des commandes comme "exec "ou "fpexecve", l'affichage du programme appelé s'effectue sans le retour à la ligne dans la console.

Pouvez vous m'aider ?

Merci d'avance

Bonjour et bienvenue !

J'ai bien peur de ne pas comprendre : veux-tu dire qu'il n'y a pas du tout de retours à la ligne dans la console ?

free pascal /FEDORA

Bonjour,

Voici un programme (Exemple7) que j'ai récupérai . Il fonctionne correctement lorsque je l'execute directement.
Par contre , lorsque j'essai d'integrer ce morceau de programme dans une procedure ci dessous (essai2), que j'appelle dans un programme à plusieurs menu, l'affichage ne se fait pas correctement, il n'y a pas de retout à la ligne dans la console.
Quelqu'un aurait il une idée?

Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 Program Example7;
 
 
     Uses BaseUnix,strings;
 
      Const Arg0 : PChar = '/usr/bin/top';
            Arg1 : Pchar = '';
 
             Var PP : PPchar;
 
              begin
                  GetMem (PP,0*SizeOf(Pchar));
                   PP[0]:=Arg0;
                     PP[1]:=Arg1;
                       PP[3]:=Nil;
                         { Execute '/bin/ls -l', with current environment }
                           { Envp is defined in system.inc }
                             fpExecVe ('/usr/bin/top',pp,envp);
                             end.
 
=================================
PROCEDURE  essai2 (VAR revenir : BOOLEAN);
 
BEGIN
 
WRITELN ('2  -  IMPORT / D UN DUMP');
delay(500);
 
begin
swapvectors;
exec('/root/DEsktop/essai','');
swapvectors;
 readln;
 revenir :=true;
end;
 
END;