Delphi-Quellcode:
private
procedure WMCOPYDATA(var Msg: TWMCopyData); Message WM_COPYDATA;
.
.
.
end;
procedure TForm1.WMCOPYDATA(var Msg: TWMCopyData);
var
sText: array of Char;
begin
If Msg.CopyDataStruct.dwData = SecondInstID then //siehe Oben
begin
SetLength(sText,Msg.CopyDataStruct.cbData);
StrLCopy(PChar(sText), Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
NewAVObject(PChar(sText));
end;
end;
Um noch alles komplett zu machen, hier der Code was gleich am Anfang passiert:
Delphi-Quellcode:
initialization
SecondInstID:=RegisterWindowMessage(PChar(MYGUID)); // InstanzID
EnsureSingleInstance(MyGUID); //hier geht es in die oneinst weiter