Форум: "Основная";
Текущий архив: 2003.09.01;
Скачать: [xml.tar.bz2];
Внизкак запретить повторнуый запуск программы? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c