CreateProcess und anschließend WM_COPYDATA

**hirsch**

Ich hoffe dass ich hier richtig bin.
Ich starte aus einem Programm heraus mit CreateProcess ein anderes Programm.
Wenn der Handle da ist, übergebe ich mit WM_CopyDATA einen String.
Das neu gestartete Programm empfängt den String und tut so manche Dinge damit.
Mein Problem ist, dass wenn der Handle schon vorhanden ist, ist das neu aufgerufene Programm noch nicht in der Lage den zu empfangenden String entgegenzunehmen. Also mein SendMessage geht an dem gestarteten Programm vorbei (kommt nicht an).
Wenn ich nun, nachdem das andere Programm gestartet ist nochmals den SendMessage mache, dann funktionierts.

zusammenfalten · markieren

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

          h:=FindWindow(nil,Pchar('KindProgramm'));

     end

     else

         Showmessage('Fehler! Programm KindProgramm.EXE ins Verzeichnis C:\MeinOrdner !');

     h:=FindWindow(nil,Pchar('KindProgramm.exe'));

     repeat //Warten bis Empfänger geöffnet und empfangsbereit ist

            h:=FindWindow(nil,PChar('KindProgramm'));

            StatusBar1.SimpleText:='Bitte warten!!!';

     until h<>0;

     begin  // Empfänger-Fenster gefunden -> Daten senden

            cds.dwData:=0;

            cds.cbData:=StrLen(PChar(s));  //Length(s);

            cds.lpData:=PChar(s);

            SendMessage(h,WM_COPYDATA,Longint(Handle),Longint(@cds)); //<- kommt nicht an, erst beim zweiten Aufruf

     end;

end;

Wo mache ich den Denkfehler?

CreateProcess und anschließend WM_COPYDATA

CreateProcess und anschließend WM_COPYDATA

Forumregeln