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? :gruebel:

:wiejetzt:

[Luckie]

Zitat:

Zitat von silentAMD

geht das mit delphi? :gruebel:

Ja. -> Forensuche.