Programm starten und auf Programmende warten

[Aike]

Hallöchen,

ich habe mal wieder ein Problem ;-)

Ich würde gerne ein Programm starten, z.B. den Taschenrechner von Windows, und dann, wenn der Taschenrechner wieder geschlossen wurde, mit meinem Programm eine ShowMessage() ausgeben. Das Programm wird mit ShellExecute gestartet (ist klar), aber wie bekomme ich heraus, ob das Programm noch aktiv ist. Mit der Window-Caption kann man leider nicht arbeiten, weil man das in meinem Programm nicht hardcoden kann/darf.

Für Links im Forum hier bin ich auch dankbar, aber ich hab keinen Ansatz dafür, was ich machen kann oder womit ich arbeiten könnte. Von dieser Thenmatik verstehe ich noch recht wenig :-/

Danke wie immer für eure Hilfe :-)


Liebe Grüße
Aike

[ichbins]

shellexecuteandwait

[edit]
shellexecuteandwait hab ich mal gelesen, das gibt es bei mir nicht. Fürs erste kannst du mal das machen:

Delphi-Quellcode:

shellexecute(form1.Handle,'open',pansichar('calc.exe'),nil,nil,0);

[/edit]

[himitsu]

Oder mal nach ShellExecute CreateProcess suchen ^^

z.B. Hilfe: ShellExecute und warten

[ichbins]

hier hab ich auch was gefunden:
Shellexecuteandwait

[ichbins]

Hier eine Unit von Olli:

[cruso]

Hi!

Schau mal in der Suche nach! Ich kann mich erinnern, dass es vor kurzem (vor ein, zwei Tagen) schon mal so was ähnliches gefragt worden ist (Hier war es das gleiche nur mit notepad.exe)!

[Aike]

Das Problem an der ShellApiEx ist, dass mein Programm so lange "in der Luft hängt", bis das Programm beendet wurde. Wenn man also ein anderes Fenster über das meinige zieht, dann verschwinden alle Elemente aus der Listbox (wie bei einem hängengebliebenen Programm). Das finde ich aber ... uncool ;p

[edit]Das war übringes auch das Problem in dem anderen Thread, den du erwähnt hast. Leider gab es da keine Lösung für das Problem.[/edit]

[himitsu]

Das it ja geade der Sinn dieser Codes, daß die Befehler auf das Beenden des aufgerufenen Programms warten ^^

Du kannst aber den Programmaufruf in einen Anderen Thread auslagern, somit kann der Hauptthread unbehelligt weiterarbeiten.

Notfalls machst du dir auch einfach 'ne Schleife in den Hauptthread, welche solange wartet, bis der Thread (mit dem Programmaufruf fertig ist).
Und in diese Schleife dann ein Application.ProgressMessages und ein Sleep(100), oder sowas in der Art.

[ichbins]

Hinters

Delphi-Quellcode:

application.processmessages

am besten immer ein

Delphi-Quellcode:

if application.terminated then exit;

Damit der User das Programm auch beenden kann, während es in der Schleife wartet.

[Aike]

Zitat:

Zitat von himitsu

Du kannst aber den Programmaufruf in einen Anderen Thread auslagern, somit kann der Hauptthread unbehelligt weiterarbeiten.

Bewirkt das nicht, dass genau der Sinn des Wartens umgangen wird?

Zitat:

Zitat von himitsu

Notfalls machst du dir auch einfach 'ne Schleife in den Hauptthread, welche solange wartet, bis der Thread (mit dem Programmaufruf fertig ist).
Und in diese Schleife dann ein Application.ProgressMessages und ein Sleep(100), oder sowas in der Art.

Da wüsste ich nicht, wie das gehen sollte, bin aber offen für sowas. Einen Thread zu erstellen ist für mich zwar nicht einfach, aber das würde ich in erin oder zwei Stunden auch hinbekommen ;-) Von ProcessMessages habe ich aber gar keine Ahnung.