Как запретить повторный запуск программы?

← →
syte_ser78 © (2005-01-16 11:03) [0]

Как запретить программе запускаться более чем в одной копии?

← →
Sergey_Masloff (2005-01-16 11:04) [1]

Это есть в FAQ на любом программистском сайте.

← →
PZ (2005-01-16 13:38) [2]

Например, файл проекта оформляешь таким образом:

program LoadInet;

uses
Forms,
Dialogs,
Windows,
LoadInetUn in "LoadInetUn.pas" {LoadInetFrm};

{$R *.res}

begin
// Не допустить запуск программы второй раз
HPrevInst := FindWindow("TLoadInetFrm", Nil);
If HPrevInst = 0 then
begin
Application.Initialize;
Application.CreateForm(TLoadInetFrm, LoadInetFrm);
Application.Run;
end
else
begin
ShowMessage("LoadInet уже запущен");
Windows.SetFocus(HPrevInst);
Windows.SetForeGroundWindow(HPrevInst);
end;
end.

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15

Как запретить повторный запуск программы? Найти похожие ветки