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 Большое спасибо =)

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