CreateProcess und anschließend WM_COPYDATA

[Garfield]

Wie wäre es damit?

Delphi-Quellcode:

procedure TFormMain.KindProgrammClick(Sender: TObject);
var StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    s : string;
    h   : HWND;
    cds : TCopyDataStruct;
    n   : integer;
begin
     FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
     StartupInfo.cb := Sizeof(TStartupInfo);
    
     if CreateProcess(nil,                { Anwendungsname}
                   'KindProgramm.exe',  { Parameter}
                   nil,                   { Security}
                   nil,                   { Security}
                   False,
                   NORMAL_PRIORITY_CLASS, { Priorität}
                   nil,                   { Environment}
                   {PVerzeichnis,}        { Verzeichnis}
                   'C:\MeinOrdner',       { Verzeichnis}
                   StartupInfo,
                   ProcessInfo) then
     begin
       StatusBar1.SimpleText:='Bitte warten!!!';
       WaitForInputIdle(ProcessInfo.hProcess, INFINITE);
       ...