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

Вниз

PostMessage   Найти похожие ветки 

 
M@D   (2004-12-04 10:43) [0]

У меня есть процедура закрытия определленого окна

procedure TForm1._Close;
var
 NCapt: String;
 H: HWND;
begin
 NCapt  := "BullsEye Network Offer - Microsoft Internet Explorer";
 repeat
   H := FindWindow(NIL, PChar(NCapt));
   if H <> 0 then
     begin
       PostMessage(H, wm_close, 0, 0);
       Inc(Chet);
     end
 until H = 0;
end;


Процерура  в таймере по 1-й секунде.
И стечик по переменной Chet увеличивается когда я закрываю окно.
Вот что-то я застопорился на этом месте. Счетчик при посылке сообщения увеличивается не один раз. Вот как можно сделать, куда поставить Inc(Chet); чтобы отсчитывал только закрытие один раз, а не 586.


 
Jel ©   (2004-12-04 10:46) [1]

ИМХО стоит ожидать закрытия окна после отсылки ему сообщения и только потом увеличивать счетчик.


 
M@D   (2004-12-04 10:49) [2]

А как это реализовать?

if PostMessage(H, wm_close, 0, 0) then
 Inc(Chet);


Не работает =(


 
Jel ©   (2004-12-04 10:53) [3]

PostMessage(H, wm_close, 0, 0)
repeat
 Application.ProcessMessages
until FindWindow(NIL, PChar(NCapt)) = 0;


 
M@D   (2004-12-04 11:03) [4]

Jel Большое спасибо =)



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

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

Наверх




Память: 0.47 MB
Время: 0.034 c
4-1099055852
alexwarrior
2004-10-29 17:17
2004.12.19
VK_LBUTTON не генерится


1-1102341249
Yuri_K
2004-12-06 16:54
2004.12.19
Двойное наследование


1-1102084386
korvin
2004-12-03 17:33
2004.12.19
Удобные компоненты для работы в трее (бесплатные)


1-1101746408
hamster
2004-11-29 19:40
2004.12.19
Turbo pascal - выключение


4-1099662483
Ivolg
2004-11-05 16:48
2004.12.19
Перехват