Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c