| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PostMessage [D7, WinXP]

M@D ©   (2004-12-04 10:43:00) 

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

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.

---

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

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

---

Jel   (2004-12-04 10:53:00) [2]

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


---

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

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

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

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

---

Jel   (2004-12-04 10:46:00) [4]

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

---

Наверх