WM_COPYDATA macht große Probleme

[Flippo]

Hi,
...hmm weiss nicht genau ob du mich da richtig verstanden hast oder ob ich dich jetz falsch verstehe.. mir geht es nicht darum ob das Programm 2 mal geöffnet ist oder nicht, sondern darum das du, wemm du das Programm einmal aufrufst ein Handle für deine Application und eines für deine Form hast...
Also nochmal als Quelltext ausgedrückt:

application.handle und form1.handle innerhalb des selben Programms, dass auch nur eine Form hat, waren bei mir unterschiedliche Werte und man muss an Form1 senden wenn die Empfangsfunktion unter Form1 deklariert ist...

ansonsten mein Code der bei mir funktioniert:

Zum Senden:

Delphi-Quellcode:

procedure TForm1.SendMainApp(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));  //PH ist das handle der Form an die ich Sende (form1.handle)
end;

Zum empfangen:
procedure WMCopyData(var Msg :TWMCopyData); message WM_COPYDATA;

Delphi-Quellcode:

procedure TForm1.WMCOPYDATA(var Msg: TWMCopyData);
var s,s1:string;
    i:integer;
begin
  s := PChar(Msg.CopyDataStruct.lpData) ;
  //msg.Result := 2006;
end;