Zitat:
Wie erstellst du die WM_COPYDATA-Nachricht, nicht wie verarbeitest du diese.
Ach so jetzt weis ich was ihr meint.
hat sich erledigt.
Danke.
gruss
Uund was war es jetzt?
Habe den freien Char selbst angehängt.. Manchmal ist man einfach nur blöd.
vorher!
Delphi-Quellcode:
// Commandline Parameter auswerten
if ParamCount > 0 then
begin
StartParams := '';
for Params := 1 to ParamCount do
StartParams := StartParams + ' ' + ParamStr(Params);
pName := PWideChar(StartParams);
CopyDataStruct.dwData := 0;
CopyDataStruct.cbData := (StrLen(pName) + 1) * sizeof(Char);
CopyDataStruct.lpData := pName;
SendMessage(Prop.MainHandle, WM_COPYDATA, 0, integer(@CopyDataStruct));
end;
nachher..
Delphi-Quellcode:
// Commandline Parameter auswerten
if ParamCount > 0 then
begin
StartParams := '';
for Params := 1 to ParamCount do
if Params = 1 then
StartParams := StartParams + ParamStr(Params)
else
StartParams := StartParams + ' ' + ParamStr(Params);
pName := PWideChar(StartParams);
CopyDataStruct.dwData := 0;
CopyDataStruct.cbData := (StrLen(pName) + 1) * sizeof(Char);
CopyDataStruct.lpData := pName;
SendMessage(Prop.MainHandle, WM_COPYDATA, 0, integer(@CopyDataStruct));
end;
Kann man bestimmt schöner (professioneller) machen aber mir reicht es so.
gruss