Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.01;
Скачать: CL | DM;

Вниз

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

 
MakNik ©   (2003-08-18 10:37) [0]

Подскажите, пожалуйста, как запретить повторнуый запуск программы?


 
Skier ©   (2003-08-18 10:39) [1]

FAQ


 
ОХ   (2003-08-18 10:45) [2]

Один из вариантов.
procedure TMainForm.FormCreate(Sender: TObject);
begin
CheckEvent:= TEvent.Create( nil, false, true, "EVENTNAME");
If CheckEvent.WaitFor( 10 ) <> wrSignaled then
Application.Terminate;
end;


 
Крот ©   (2003-08-18 12:21) [3]


> ОХ (18.08.03 10:45) [2]


А почему WaitFor( 10) а, например, не WaitFor( 11) ?


 
Nic2   (2003-08-18 15:57) [4]

CreateSemaphore(nil,0,1,"MySemaphore");
if GetLastError=ERROR_ALREADY_EXISTS then Application.Terminate;


 
Nucl ©   (2003-08-18 16:49) [5]

еще проще так:
в dpr файле пишешь:

var HWND : THandle;
HWND := FindWindow("TMaser_Form", "Документация по землевладениям");
if HWND = 0 then
begin
Application.Initialize;
Application.Title := ".....";
Application.CreateForm(.....);
Application.Run;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
6-1526
MSasha
2003-06-23 11:08
2003.09.01
Как написать FTP server используя Indy? Пример pls.


7-1676
Fokin111
2003-06-18 17:20
2003.09.01
Интеграция


3-1306
The X
2003-08-07 13:32
2003.09.01
Возможность создания многостраничного отчета без данных из БД


1-1454
Still_Swamp
2003-08-19 17:14
2003.09.01
Прочитать в TMemoryStream


4-1727
tipman
2003-06-28 20:42
2003.09.01
Где взять hProcess для функции WaitForInputIdle