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?
