Programm nicht mehrmals starten

**silentAMD**

Hi,
ich starte momentan mein programm, das nicht mehrmals ausgeführt werden soll, so:

Delphi-Quellcode:

			begin

Application.Handle:= CreateMutex(nil,True,PChar(a+':'+b));

if not(GetLastError = ERROR_ALREADY_EXISTS) then begin

try

 Bitte:=TBitte.Create(nil);

 Bitte.Show;

 Bitte.Refresh;

 Application.Initialize;

 Application.CreateForm(TFenster, Fenster);

finally

 Bitte.InitializationDone := True;

end;

Application.Run;

end

else Application.MessageBox('Die Anwendung wird bereits ausgeführt.',PChar(a),64);

end.

Anstatt der meldung (und dass das mehrmals geöffnete programm speicher braucht), soll das bereits geöffnete programm maximiert bzw. in den vordergrund gestellt werden.
geht das mit delphi?

Programm nicht mehrmals starten

Programm nicht mehrmals starten

Forumregeln