Hi, sry konnte gestern nicht reingucken...
also wie ich die Daten unaufgefordert hin und her sende: Das mache ich üüber WM_Copydata
Zum senden:
Delphi-Quellcode:
procedure TForm1.SendData(S:String);
var
copyDataStruct : TCopyDataStruct;
begin
copyDataStruct.dwData := 0; //use it to identify the message contents
copyDataStruct.cbData := 1 + Length(s);
copyDataStruct.lpData := PChar(s);
sendmessage(PH,WM_COPYDATA,application.handle,Integer(@CopyDataStruct));
end;
Zum empfangen:
procedure WMCopyData(var Msg :TWMCopyData); message WM_COPYDATA; //Bei der Deklaration unter Form auf den Message Typ achten
Delphi-Quellcode:
procedure TForm1.WMCOPYDATA(var Msg: TWMCopyData);
var s:string;
begin
s := PChar(Msg.CopyDataStruct.lpData) ;
end;
Danke für alle antowrten werd mir die Sachen mal angucken
MFG
Flippo