Скачать: 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 вся ветка

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



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