Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.017 c
3-38728
eugie
2004-01-21 16:46
2004.02.13
Гранты, TIBDataSet и его Prepare


1-38836
den777
2004-02-02 18:41
2004.02.13
Вопрос по памяти при работе с дтнамическими массивами


8-38970
Dmitriy O.
2003-10-14 10:24
2004.02.13
Фотошоп не понимает BMP записаный самостоятельно


1-38949
Nucl
2004-02-03 17:27
2004.02.13
ActiveX Form


1-38810
ИЛЮХА
2004-02-02 13:47
2004.02.13
Функции Winampa