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

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?

[Luckie]

Du berechnest die Zeichenkettenlänge komisch. Du castest zu PChar multiplizierst aber mit Größe von WideChar. Müsstest du dann nicht auch zu PWideChar casten?

[Uwe Raabe]

Seit Delphi 2009 ist SizeOf(Char) = SizeOf(WideChar)

[Uwe Raabe]

Der obige Code funktioniert in einem Minimalprogramm einwandfrei. Kannst du das mit einem Beispielprogramm nachstellen? Dann häng das doch bitte mal hier an.