Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.30;
Скачать: 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 вся ветка

Текущий архив: 2005.01.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
14-1105295198
OneFragLeft
2005-01-09 21:26
2005.01.30
Спрятать окно программы


1-1105951254
Mouse_web
2005-01-17 11:40
2005.01.30
Стоимость работ


14-1105627506
Cosinus
2005-01-13 17:45
2005.01.30
Хм... Глупый вопрос,но все же. Как удалить установленный Package?


4-1102777317
Muhan
2004-12-11 18:01
2005.01.30
Как программно узнать имя компа?


14-1105514038
santa
2005-01-12 10:13
2005.01.30
PageControl