Innerhalb meines Programms möchte ich eine message verschicken. Ein MessageHandler, der auch für Messages von woanders zuständig ist, soll die entgegennehmen.
Sender und Empfänger sind dasselbe Programm. Die Message soll gesendet werden, ohne dass eine neue Instanz erstellt wird
Delphi-Quellcode:
// Button1
var
msg: TWMCopyData;
begin
msg.CopyDataStruct.cbData := (StrLen(PChar(Command)) + 1) * SizeOf(WideChar);
msg.CopyDataStruct.lpData := PChar(Command);
MyMessageHandler(msg);
end;
Delphi-Quellcode:
// MessageHandler
procedure MyMessageHandler(var msg: TWMCopyData);
var
CommandList: string;
begin
CommandList:= string(PChar(msg.CopyDataStruct.lpData));
// Arbeite mit CommandList
end;
Wenn ich abc sende, kommt
ab an. Was mache ich da falsch?