Exe aufrufen und Rückgabewert auswerten

[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

[himitsu]

Stichwort: IPC

da gibt es tausende Möglicheiten.



Mailslots
SharedMemory (MMF, GlobalAlloc, .........)
Pipes (Named oder Unnamed) / Streams
Sockets (TPC/UDP)
TempFiles
...

[peterbelow]

Zitat von 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.

Sieh Dir mal die API-Funktion GetExitCodeProcess an. In deinem Delphi-Programm setzt Du den Exitcode vor dem "end." des DPR-Files mittels
Exitcode := 42;

[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

[softtouch]

Das müsste eigentlich mit CreatPipe(...) und CreapeProcess(...) gehen, oder mit der Komponente "DosCommand" (in GetIt).

[TomyN]

Doofe Frage: Warum muss es ein extra Programm sein, wenn es keine Formulare anzeigt?
Wäre da nicht ein Thread sinniger?