WM_COPYDATA macht große Probleme

[Mazel]

Hi,

ich weis jetzt genau was du meinst.
Wenn die 2. Instanz startet, prüft diese, ob es das Programm schonmal gestartet ist, wenn ja ermittele ich ähnlich FindFirst - FindNext ein Handle, welches ich unter Wnd abspeichere.

Application.Handle sollte doch das Handle, der aktuellen Instanz (also dieser 2.Instanz) sein. Wenn das gefundene Handle (Wnd) nicht das der 2. Instanz sein sollte überprüfe ich es ob es sich um die 1. Instanz handelt, wenn nicht, bekommt Wnd das nächste Handle.

Du kannst ja gerne dein Code mal posten.

Gruß
Mazel

[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:

Delphi-Quellcode:

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;

[Mazel]

Mhm, ich habe dich schon verstanden. Das sind zwei unterschiedliche Werte.

Wie ermittelts du das Handle der Form1 (PH)?

Ich muss das Handle ermitteln da ich die Message an die 1. Instanz senden muss von der 2. Instanz aus.

Gruß
Mazel

[Flippo]

ich habs da recht einfach gehabt, weil ich von einer dll aus sende und das handle von form1 einfach beim laden mitschicke.... aber hier haben die eine Prozdur mit der man das Handle angeblich bekommen soll, habs allerdings nicht selber getestet. :stupid: Ansonsten kannste ja auchmal ausprobieren die Empfangsfunktion nicht unter Form1 zu deklarieren evtl hilft das dann ja schon

Delphi-Quellcode:

 procedure WMCOPYDATA(var Msg: TWMCopyData);

Hoffe das hilft dir weiter...