CreateProcess und anschließend WM_COPYDATA

[hirsch]

Vielen Dank @Garfield,
Das

Zitat:

WaitForInputIdle(ProcessInfo.hProcess, INFINITE);

habe ich eingefügt, hat aber nix gebracht oder verändert.
Hab das jetzt so stehen:

Delphi-Quellcode:

procedure TFormMain.KindProgrammClick(Sender: TObject);
var StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    s : string;
    xc : cardinal;
    h : THandle;
    //h   : HWND;
    cds : TCopyDataStruct;
    

begin
     FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
     StartupInfo.cb := Sizeof(TStartupInfo);
     //StrPCopy(PVerzeichnis,LW_Char+':\MeinOrdner');
     if CreateProcess(nil,                { Anwendungsname}
                   'KindProgramm.exe',  { Parameter}
                   nil,                   { Security}
                   nil,                   { Security}
                   False,
                   NORMAL_PRIORITY_CLASS, { Priorität}
                   nil,                   { Environment}
                   {PVerzeichnis,}        { Verzeichnis}
                   'MeinOrdner',          { Verzeichnis}
                   StartupInfo,
                   ProcessInfo) then
     begin
         //showmessage ('Gestartet');
     end
     else
         Showmessage('Fehler! Programm KindProgramm.EXE ins Verzeichnis C:\MeinOrdner !');
     StatusBar1.SimpleText:='gefunden, warten bis eingabebereit ist';
     WaitForInputIdle(ProcessInfo.hProcess, INFINITE);
     repeat //Warten bis Empfänger geöffnet und empfangsbereit ist
            h:=FindWindow(nil,'KindProgramm');
            StatusBar1.SimpleText:='Bitte warten!!!';
     until h<>0;
     
     cds.dwData:=0;
     cds.cbData:=Length(s);
     cds.lpData:=PChar(s);
     SendMessage(h,WM_COPYDATA,integer(H),integer(@cds));
     xc:=GetlastError;
     if xc<>0 then
     begin
       SendMessage(h,WM_COPYDATA,integer(H),integer(@cds));
     end;
  end;
end;

Das habe ich nun ein paar mal getestet und das funktioniert soweit.
Aber ich denke die Lösung ist quick and dirty.
Den Denkfehler den ich mache hab ich nur umgangen, aber nicht behoben oder?