Das Programm einmal Starten. Beispiel.

[Karstadt]

Delphi-Quellcode:

program Project1;

uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var hPrevWin: HWND;

begin
  Application.Initialize;
  
  hPrevWin := FindWindow('TForm1', 'Form1');

  If hPrevWin <> 0 Then
  begin
     SetForegroundWindow(hPrevWin);
     Application.terminate;
  end;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

So wird der Doppeltstart verhindert, außerdem wird beim 2start das Programm nach vornge gesetz.
Funktioniert aber nicht, wenn das Programm minimiert ist.

Sonst ist das funktionsfähig!

Was mir noch nicht so gefällt ist, das beim zweiten start ich das "FORM1" kurzfristig sehen kann, kann man das irgendwie verhindern?


bzw. ist das so richtig?

Delphi-Quellcode:

program Project1;

uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var hPrevWin: HWND;

begin
  hPrevWin := FindWindow('TForm1', 'Form1');
  If hPrevWin <> 0 Then
  begin
     SetForegroundWindow(hPrevWin);
     Application.terminate;
  end
  else
  begin  
    Application.Initialize;  
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.