Eigene Anwendung bei Mehrfachstart beenden

[MiKaEr]

ich versuche gerade meine eigene anwendung zum test bei einem 2. start zu beenden. dazu suche ich das handle meiner anwendung BEVOR es gestartet wird.
wurde das fenster gefunden bedeutet das, dass meine anwendung bereits offen ist. also sende ich eine message mit SC_CLOSE.

Delphi-Quellcode:

begin
 hExisting := FindWindow('TMeinTestForm', nil);
 if hExisting <> 0 then
  begin
   SetForegroundWindow(hExisting);

   SendMessage(hExisting, WM_SYSCOMMAND, SC_CLOSE, 0);

   Halt(1);
  end;

 Application.Initialize;
 // ...

auf meiner form ist ein TApplicationEvent und dort steht im OnMessage-Event:

Delphi-Quellcode:

 if Msg.message = WM_SYSCOMMAND then
  if Msg.wParam = SC_CLOSE then
   showmessage('X');

sollte ich bei einem zweiten start meines programms nicht ein "X" zu sehen bekommen?