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

Запрет повторного запуска и активизация 1-ого экземляра   Найти похожие ветки 

← →
AlexeyITN   (2004-02-03 13:14) [0]

Стыдно спрашивать...но я в тупике...Порылся на форумах...Всё облазил...и вот в чём проблема: по отдельности оно работает, а вот вместе: прямь бардак. Нужно запретить запуск второго екземпляра, а первый с активировать...Делаю так:
-------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
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
FlashWindow(Wnd,true); {тут засветил первый экзепляр}
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
-----------------------------------------------------------
Вопрос: как закрыть второй экземпляр? (дополните код)
прошу прощение за отнятое у Вас время...

---

← →
REP ©   (2004-02-03 13:18) [1]

Я вот так делаю:
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
BEGIN
SetForegroundWindow(Wnd);
Halt;
END;
END;
Wnd := GetWindow(Wnd, gw_hWndNext);
END;

---

← →
AlexeyITN   (2004-02-03 13:24) [2]

Спасибо! (REP)

---

← →
AlexeyITN   (2004-02-03 13:56) [3]

Удалено модератором

---

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

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



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