So geht es auch:
Delphi-Quellcode:
var
ThePrevInstance: hWnd;
BEGIN
ThePrevInstance := FindWindow('TApplication', 'Meine Application');
if ThePrevInstance <> 0 then
begin
if IsIconic(ThePrevInstance) then ShowWindow(ThePrevInstance, SW_RESTORE)
else SetForegroundWindow(ThePrevInstance);
FlashWindow(ThePrevInstance, TRUE);
end else
begin
Application.Title := 'Meine Application';
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
END.
... bei dieser Version wird das Fenster in den Vordergrund geholt und ggf. auch wiederhergestellt wenn es in die Taskbar minimiert wurde.
Leider wird
HPrevInst (System.HPrevInst) nicht mehr von Delphi unterstützt glaube ich.
