Externes Programm starten (gelöst)

[Oli]

Ich möchte ein externes Programm starten, aber nicht warten, bis es beendet wurde.

Wenn ich WaitOnExit verwende, wird das externe Programm gestartet und mein Programm wartet solange, bis das externe Programm beendet wird. Das funktioniert.

Nun versuche ich das externe Programm zu starten (es soll nicht automatisch beendet werden, wie in meinem nachstehenden Beispiel), ohne dass mein Programm wartet. Ich habe den Verdacht, dass das mit TProcess nicht geht, oder?

Code: Alles auswählen

program project1;

uses
  sysutils,
  process;

var
  RunProgram: TProcess;

begin
  RunProgram := TProcess.Create(nil);
  RunProgram.Executable:=SetDirSeparators('/usr/bin/geany');
  RunProgram.Parameters.Add('/home/oli/tmp.txt');
  RunProgram.Execute;
  Sleep(3000); // nur damit man sieht, dass das Programm gestartet wird.
  RunProgram.Free;
  writeln('weiter gehts'); // das externe Programm wurde beendet. Es soll aber weiter bestehen bleiben.
end.

[fliegermichl]

Am einfachsten die unit lclintf einbinden und den namen des externen Programmes an opendocument übergeben.

[Oli]

Danke für den Tipp. Ich möchte jedoch nicht ein Dokument mit dem Standardprogramm öffnen, sondern gezielt ein bestimmtes Programm starten (mit oder auch ohne Datei). Geht das?

[shokwave]

Probier mal dein Beispielprogramm, vom ersten Beitrag, von der Kommandozeile und nicht aus der IDE zu starten. Bei mir hat das, auf einem Ubuntu, geklappt.
Unter Windows funktioniertes auch aus der IDE.

[Jorg3000]

Hi!
In der Hilfe zu TProcess.Destroy steht ...

If a process was started and is still executed, it is not stopped, but the standard input/output/stderr streams are no longer available, because they have been destroyed.

https://www.freepascal.org/docs-html/fc ... stroy.html

D.h. das ausgeführte Programm wird durch dein RunProgram.Free nicht beendet (hätte mich auch gewundert), sondern lediglich die Ausgabe auf die Konsole endet.
Grüße, Jörg

[Niesi]

Ich möchte ein externes Programm starten, aber nicht warten, bis es beendet wurde.

Wenn ich WaitOnExit verwende, wird das externe Programm gestartet und mein Programm wartet solange, bis das externe Programm beendet wird. Das funktioniert.

Nun versuche ich das externe Programm zu starten (es soll nicht automatisch beendet werden, wie in meinem nachstehenden Beispiel), ohne dass mein Programm wartet. Ich habe den Verdacht, dass das mit TProcess nicht geht, oder?

Code: Alles auswählen

program project1;

uses
  sysutils,
  process;

var
  RunProgram: TProcess;

begin
  RunProgram := TProcess.Create(nil);
  RunProgram.Executable:=SetDirSeparators('/usr/bin/geany');
  RunProgram.Parameters.Add('/home/oli/tmp.txt');
  RunProgram.Execute;
  Sleep(3000); // nur damit man sieht, dass das Programm gestartet wird.
  RunProgram.Free;
  writeln('weiter gehts'); // das externe Programm wurde beendet. Es soll aber weiter bestehen bleiben.
end.

Ich bin nicht sicher und kann es gerade nicht ausprobieren, aber lass mal das RunProgram.Free weg ...

[Oli]

Vielen Dank für eure Lösungsvorschläge. Die Antwort von shokwave war goldrichtig. Wenn ich das Programm unter Linux aus der Konsole starte (und nicht aus der IDE) bleibt das externe Programm bestehen und wird nicht automatisch geschlossen. Somit liegt es an der IDE und nicht an meinem Programm.

[af0815]

In der IDE wird ein Programm unter dem Debugger gestartet und nach dem Beenden durch diesen aufgeräumt. Das ist ist der Unterschied, den es zu beachten gibt.