Exe aufrufen und Rückgabewert auswerten

[DieDolly]

Im Prinzip schon. Aber ich dachte das kann man direkt über ShellExecuteExW() regeln könnte.
Exe-A ruft ShellExecuteExW auf und wartet ja auf einen Boolean-Rückgabewert. Ich dachte da kann man aus Exe-B irgendwas raus senden.

[DeddyH]

Sind das beides Deine Programme? Konsole oder UI?

[DieDolly]

Beides meine Programme. Exe-A mit GUI, Exe-B ist kein Konsolenprogramm ({$APPTYPE CONSOLE} nicht gesetzt), hat aber keine Formulare. Alles findet in der DPR statt.

[DeddyH]

Dann könntest Du doch in beiden Programmen mit RegisterWindowsMessage eine eigene Message erzeugen, die Programm B an Programm A sendet, sobald das Ergebnis feststeht. Entweder gibt dann Programm A ein Fensterhandle (Application.Mainform.Handle z.B.) als Kommandoparameter an Programm B mit, oder dieses sendet einfach an HWND_BROADCAST.

[DieDolly]

Könntest du mir davon ein Beispiel schicken? Davon verstehe ich gerade überhaupt nichts.

Was wm-copydata angeht, könnte das eventuell so bei mir funktionieren:
- ExeA ruft ExeB auf
- ExeA wartet auf Beendigung von ExeB
- während ExeB noch läuft, schicke ich per wm-copydata was an ExeA. Dort wird eine Variable mit irgendwas gefüllt.
- sobald ExeB beendet ist, gehts in ExeA weiter und dort könnte ich die variable auswerten.

Könnte klappen

[DeddyH]

Im Moment nicht, da ich am Tablet schreibe. Aber RegisterWindowMessage nimmt als Parameter einen PChar auf einen möglichst eindeutigen String entgegen und gibt eine systemweit eindeutige Message-ID zurück. Das eignet sich meiner Meinung nach prima für Dein Anliegen.

[venice2]

Zitat von DeddyH:

Im Moment nicht, da ich am Tablet schreibe. Aber RegisterWindowMessage nimmt als Parameter einen PChar auf einen möglichst eindeutigen String entgegen und gibt eine systemweit eindeutige Message-ID zurück. Das eignet sich meiner Meinung nach prima für Dein Anliegen.

eine Message muss man nicht extra registrieren wenn man über beide Quellen verfügt.
Lege dir einfach eine Message an die du in beiden Anwendungen definierst.

[DieDolly]

Habe das jetzt so gelöst, da ich eh schon einen Handler für WmCopyData im Programm habe.

ExeB

Delphi-Quellcode:

var
 hExistingInstance: THandle;
 pName: PChar;
 aCopyData: TCopyDataStruct;

procedure SendRecord(const aRecordToSend: TCopyDataStruct);
begin
 aCopyData.dwData := ... irgendein int wert, max cardinal;
 SendMessage(hExistingInstance, WM_COPYDATA, 0, LPARAM(@aCopyData));
end;

procedure SendReturnCode(const ReturnString: string);
begin
 pName := PChar(ReturnString);
 aCopyData.cbData := (StrLen(pName) + 1) * SizeOf(PWideChar);
 aCopyData.lpData := pName;

 SendRecord(aCopyData);
end;

 hExistingInstance := FindWindow(PChar('TFormBlubb'), nil);

 if (hExistingInstance = 0) then
  SendReturnCode('NixOK')
 else
  SendReturnCode('AllesOK');

ExeA

Delphi-Quellcode:

private
  {Private-Deklarationen}
  procedure WMCopyData(var msg: TWMCopyData); message WM_COPYDATA;

procedure TFormBlubb.WMCopyData(var msg: TWMCopyData);
begin
 if msg.CopyDataStruct.dwData = TProgramMeta.iUniqueMutexID then
  Blubb(msg, TParameterType.ptNull)
 else
  inherited;
end;

procedure Blubb(const ParameterList: string; const aParameterType: TParameterType);
begin
 showmessage(ParameterList);
end;

[Dalai]

Wenn man ShellExecuteEx mit dem Flag SEE_MASK_NOCLOSEPROCESS füttert oder CreateProcess benutzt, kann man auf das Ende der Ausführung warten und dann letztlich mit GetExitCodeProcess den Rückgabewert holen; ist dieselbe Funktion, mit der man prüft, ob der Prozess noch läuft.

Grüße
Dalai

[hoika]

Hallo,
ProgrammB setzt den Exitcode (https://docwiki.embarcadero.com/Libr...%20Wert%20Null.).

Wie man das jetzt auswertet, finde ich nicht wirklich im Netz, vielleicht ja so
http://www.delphigroups.info/2/03/482203.html