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

Вниз

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

 
ttt_111   (2006-06-15 15:06) [0]

Как запретить запускать повторно уже запущенную программу?


 
DrPass ©   (2006-06-15 15:10) [1]

Создавать какой-либо глобальный объект (мютекс, memory-mapped файл, окно с уникальным именем класса или еще что фантазия родит), и при старте программы искать этот объект. Если есть - уже копия запущена, тогда сразу завершать работу. В любом ФАКе по программированию есть куча примеров на эту тему


 
dolmat   (2006-06-15 15:20) [2]

procedure TForm1.FormCreate(Sender: TObject);
VAR Wnd : hWnd; buff : ARRAY[0.. 127] OF Char;
Begin Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd <> 0 DO BEGIN
IF (Wnd <> Application.Handle) AND (GetWindow(Wnd, gw_Owner) = 0)  THEN
 BEGIN
 GetWindowText (Wnd, buff, sizeof (buff ));
    IF StrPas (buff) = Application.Title THEN Halt;
    END;
    Wnd := GetWindow (Wnd, gw_hWndNext);
    END;

end;


 
ttt_111   (2006-06-15 15:37) [3]

Спасибо за помощь.



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

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

Наверх




Память: 0.47 MB
Время: 0.037 c
15-1149672449
Карелин Артем
2006-06-07 13:27
2006.07.02
Полный перенос дельфи 7 с одного компа на другой.Что посоветуете?


1-1148540258
.ruslan
2006-05-25 10:57
2006.07.02
...узнать сколько времени прошло (осталось) между датами


2-1150377106
Scavenger
2006-06-15 17:11
2006.07.02
Задержка времени


2-1149868650
Handle
2006-06-09 19:57
2006.07.02
Подскажите как из TImageList вытащить иконку в TIcon ?


2-1150399200
Zloi-avgust
2006-06-15 23:20
2006.07.02
скачать файл по HTTP зная PI (при условии что нет домена)