Hallo!
Bis letzte Woche hatte ich noch Delphi 10.3 genutzt und bin jetzt auf 10.4 umgestiegen.
Leider funktioniert mein Quellcode jetzt nicht mehr so, wie er eigentlich sollte.
Ich will nur eine Instanz meiner Software zulassen und bei nochmaligem Aufruf einen String an die bestehende Instanz übergeben.
So sieht's beim Sender aus:
Delphi-Quellcode:
// Parameter-String an Ur-Instanz senden
Data.dwData := C_KEY;
Data.cbData := (Length(Parms)+1) * SizeOf(Char);
Data.lpData := PChar(Parms);
MyHandle:=FindWindow(nil, PChar(APP_NAME));
if MyHandle<>0 then SendMessage(MyHandle, WM_COPYDATA, LongInt(MyHandle), LongInt(@Data));
CloseHandle(MyHandle);
Und so beim Empfänger:
Delphi-Quellcode:
procedure TForm1.WMCopyData(
var Msg: TWMCopyData);
var
sInput:
String;
begin
try
if Msg.CopyDataStruct.dwData = C_KEY
then begin
// Neue Daten empfangen
sInput:=PChar(Msg.CopyDataStruct.lpData);
end;
except
on E:
Exception do
Protokoll('
WMCopyData;FEHLER;beim Einlesen des Strings - ' + E.
Message);
end;
end;
Im Protokoll habe ich hinterher immer folgende Fehlermeldung stehen:
WMCopyData;FEHLER;beim Einlesen des Strings - Zugriffsverletzung bei Adresse 0082EBC0 in Modul 'PushService7.exe'. Lesen von Adresse 00000000
Das Senden der Daten scheint ja schonmal nicht ganz verkehrt zu sein - zumindest C_KEY als Identifier kommt ja an.
Beim Senden werden auch keine Exceptions ausgelöst - nur beim Empfangen.
Irgendwie stehe ich jetzt gerade ein wenig auf dem Schlauch...
Hat einer von euch einen Tipp für mich?