SendMessage Zugriffsverletzung

[darnus84]

Hallo DP!

Ich habe ein Problem und komme einfach nicht weiter ...

Ich möchte mit einem Protocol eine anwendung öffen was so auch sehr gut funktioniert bsp.: test://Hallo. Die Anwendung öffnet sich und es erscheint das Hallo als message.

Ich möchte jetzt das nachfolgende Nachrichten in dem gleichen fenster angezeigt werden und nicht das Programm nochmal geöffnet wird. Dazu verwende ich ein helper.exe (ist mit Protocol registriert). Diese Prüft ob anwendung schon läuft und wenn ja soll das Passieren:

Delphi-Quellcode:

const
  WM_MY_MESSAGE = WM_USER + 4242;

// helper.exe (Sender)

procedure SendtoApp(sTex:string);
var
  h: thandle;
begin
 h := FindWindow(nil, 'Project1');
 If h <> 0 Then  begin
  SendMessage(H, WM_MY_MESSAGE, 0, DWORD(stex));
 end;
end;

// Project1.exe (Empfänger)

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  AppMessage(msg,handled);
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
  S: PChar;
begin
  if Msg.message = WM_MY_MESSAGE then
  begin
   try
    S := Pchar(msg.lParam);
    try
      showmessage(S);
    finally
      Freeandnil(S);
    end;
    Handled := True;
   except
     exit;
   end;
  end;
end;

// quelle: http://www.swissdelphicenter.ch/de/showcode.php?id=163
// Resultat: Zugriffsverletzung im sekunden tackt

Vielen dank schon einmal