Mutex und Programm nicht doppelt starten

[kingflo]

jetzt hab ich aber das Problem, das die Windows Message trotzdem nicht ankommt

Windows.SendMessage(hWnd,WM_USER+4711,0,0);

Delphi-Quellcode:

procedure TLoginForm.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if MSg.message = WM_USER+4711 then begin
   ShowMessage('Angekommen');
 end;
end;