Das Programm einmal Starten. Beispiel.

[turboPASCAL]

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.