Ich möchte an eine andere von mir programmiete Anwendung einen Text senden. Dazu verwende ich folgenden Code:
Senden:
PostMessage(h, WM_MultiStarted, 0, Integer(PChar(ParamStr(1))));
Empfangen:
Delphi-Quellcode:
procedure TMainForm.MultiStarted(var Msg: tagMSG; var Handled: Boolean);
var Parameter: String;
begin
if Msg.message = WM_MultiStarted then
begin
Parameter := String(PChar(Msg.lParam));
showmessage(Parameter);
end;
end;
Nur leider kommen da nur irgendwelche Hieroglyphen raus. Wenn ich aber einen konstanten String angebe, beispielsweise so:
PostMessage(h, WM_MultiStarted, 0, Integer(PChar('test')));
dann zeigt er mir auch 'test' an.
Was mache ich falsche? Kann mir da jemand weiter helfen?