Parameterübergabe mit SendMessage

[gsh]

Hi

ich habe eine Anwendung die nur einmal gestartet werden darf. Wenn jetzt aber eine 2. Instanz mit Parameter gestartet wird, dann sollten die Parameter zuerst an die 1. Instanz geschickt werden und danach erst die Anwendung beendet werden.

Also hab ich gesucht und auch folgenden Code gefunden:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  MutexFensterHandle : THandle;
  S : String;
begin
  MutexFensterHandle := FindWindow('TForm1', 'TestAnwendung');
  if MutexFensterHandle <> 0 then
  begin
    S := 'Test';
    SendMessage(MutexFensterHandle, WM_ParamterSend, 0, DWORD(PChar(S)));
    SetForegroundWindow(MutexFensterHandle);
  end
  else Showmessage('Es ist ein Fehler beim finden des Fensterhandels aufgetreten');
end;

Delphi-Quellcode:

const
  WM_ParamterSend = WM_USER + 5;
[..]
procedure ParamterReceive(var msg: TMessage); message WM_ParamterSend;
[..]
procedure TForm1.ParamterReceive(var msg: TMessage);
begin
  msg.Result := 1;
  ShowMessage(PChar(msg.lParam));
end;

In meiner Testanwendung funktioniert der Code perfekt (Sendet die Nachricht an sich selber)
In meinem eigentlichen Programm bekomme ich aber nur eine paar kryptische Zeichen ausgegeben (2. Instanz sendet an 1. Instanz)

Meine Vermutung ist das nur der Pointer geschickt wird und dieser bei der 1. Instanz dann auf einen zufälligen Wert zeigt. Stimmt das? Wie kann ich das am besten Lösen?

Nur so zur Info das ist meine erste Verwendung von SendMessage also nicht böse sein wenn dies ganz einfach zu lösen ist