Delphi-PRAXiS - Delphi Aufrufendes Programm ermitteln

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Aufrufendes Programm ermitteln (https://www.delphipraxis.net/50498-aufrufendes-programm-ermitteln.html)

Aufrufendes Programm ermitteln

Wie kann ich ermitteln von welchem Programm meine Anwendung aufgerufen wurde?

Beispiel: Programm 1 ruft mit ShellExecute eine Batch auf die wiederum Programm 2 startet. Ich möchte nun vom Programm 2 an Programm 1 mit SendKeys einen Erfolgs- oder Fehlercode schicken. Wie krieg ich das Handle für Programm 1 am einfachsten raus wenn zudem mehrere Instanzen davon laufen?

D.h. FindWindow fällt aus.

Muss ich dazu die Prozessliste nach der ParentID der ProzessID durchklappern bis ich keine mehr finde oder gibt es dafür eine elegantere Lösung?

Zum Hintergrund hab ich eine alte DOS-Anwendung produktiv die zwar einen Shellaufruf machen kann, aber keine Rückgabewerte verarbeitet. Der will ich eine Tastatureingabe zurückgeben.

Gruß, Bernd

Re: Aufrufendes Programm ermitteln

Kann man davon ausgehen, dass das Programm2 in der gleichen Konsole ausgeführt wird?

Re: Aufrufendes Programm ermitteln

Hallo Nico,

Programm 1 ist das alte DOS-Programm.
Programm 2 ist ein Delphi Windowsprogramm, kein Konsolenprogramm.

Gruß, Bernd

Re: Aufrufendes Programm ermitteln

Dann kommt wohl nur die ParentID in Frage.