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 ) où j'ai découvert ça, prévu pour Windows :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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

Une idée ?
Merci par avance,