Главная страница
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.034 c
3-38688
serg128
2004-01-22 20:00
2004.02.13
Вопрос по DataSetProvider


1-38818
AGN
2004-01-22 17:55
2004.02.13
URL


3-38675
denis24
2004-01-24 10:55
2004.02.13
поиск в базе


1-38954
Goida
2004-02-02 17:52
2004.02.13
Грязь в округлении


1-38902
electric
2004-02-04 15:15
2004.02.13
Получение тело письма и прикреплённых файлов с помощью TIdPOP3