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.
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?