TWMCopyData Message verschicken. Emfangsproblem

**DieDolly**

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

markieren

Delphi-Quellcode:

			// Button1

var

 msg: TWMCopyData;

begin

 msg.CopyDataStruct.cbData := (StrLen(PChar(Command)) + 1) * SizeOf(WideChar);

 msg.CopyDataStruct.lpData := PChar(Command);

 MyMessageHandler(msg);

end;

markieren

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?

TWMCopyData Message verschicken. Emfangsproblem

TWMCopyData Message verschicken. Emfangsproblem

Forumregeln