Check if Application is already running.

Check if Application is already running.

Var
  HWnd:THandle;
begin
  HWnd:=FindWindow('TForm1',nil);
  if HWnd=0 then
  begin
    Application.initialise;
    Application.CreateForm(TForm1,form1);
    Application.Run;
  end;
end.


home