| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

syte_ser78 ©   (2005-01-16 11:03:00) 

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

---

GanibalLector   (2005-01-16 13:50:00) [1]

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

---

PZ   (2005-01-16 13:38:00) [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.

---

Sergey_Masloff   (2005-01-16 11:04:00) [3]

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

---

Наверх