Скачать: CL | DM;

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

← →
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.

---

← →
GanibalLector ©   (2005-01-16 13:50) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c