TAsyncProcess sous Linux : quelqu'un connaît ?
Bonsoir,
l'aide étant lamentable sur ce coup-là, j'ai un peu googlé (y a pas grand chose) et suis tombé sur un site allemand (pas d'bol je connais pas ce langage :mrgreen:) où j'ai découvert ça, prévu pour Windows :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| var
AProcess: TAsyncProcess;
procedure TForm1.Term(Sender: TObject);
begin
ShowMessage('End');
FreeAndNil(Sender);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
AProcess := TAsyncProcess.Create(nil);
try
AProcess.Executable := 'calc.exe';
//AProcess.Options := AProcess.Options + [poNoConsole];
AProcess.OnTerminate:= @term;
AProcess.Execute;
finally
//
end;
end; |
Le dernier post se terminant par "Danke", j'en ai conclu que ça pourrait le faire mais non, car après avoir changé la ligne de l'exécutable par AProcess.Executable := '/bin/df'; // ou 'ls', je ne vois jamais le ShowMessage :aie:
Une idée ?
Merci par avance,
