Mutex und Programm nicht doppelt starten

[kingflo]

ich kriegs nicht hin... mit deinem Code kommt es nicht vor, dass h <>0 ist.

dann dachte ich,´dass es so gehen müsste:

Delphi-Quellcode:

  mHandle := CreateMutex(nil,True,'Stryyke Client');

  if GetLastError = ERROR_ALREADY_EXISTS then begin
     ShowMessage('test');
     Windows.SendMessage(mHandle,WM_USER,0,0);
     Halt;
  end;

dann wollte ich die ApplicationEvents abfangen, dass habe ich so gemacht:

Delphi-Quellcode:

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

leider bekomme ich die ShowMessage('Angekommen'); nie zu sehen

daraus schließe ich, dass das Windows.SendMessage(mHandle,WM_USER,0,0); nicht richtig geht oder?