Главная страница
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.103 c
11-1088887873
Deimos
2004-07-04 00:51
2005.01.30
Плоский Edit


3-1104240289
}|{yk
2004-12-28 16:24
2005.01.30
Firebird и захват сервером 99% CPU


1-1105762626
werewolfru
2005-01-15 07:17
2005.01.30
Скрипт для online редактирования статей


14-1105304252
Fin
2005-01-09 23:57
2005.01.30
Снежный человек!


4-1102537258
8ung
2004-12-08 23:20
2005.01.30
Определить порт клавиатуры