Главная страница
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.053 c
4-1099471291
Фагот
2004-11-03 11:41
2004.12.19
Автозапуск


1-1102032607
Garfunkel
2004-12-03 03:10
2004.12.19
Сворачивание в трей при загрузке Windows


14-1101713605
OneFragLeft
2004-11-29 10:33
2004.12.19
Меня обманули?


14-1101550334
syte_ser78
2004-11-27 13:12
2004.12.19
Оцените бетаверсию программы "Колекционера CD"


1-1102078078
СергА
2004-12-03 15:47
2004.12.19
отладка исходного кода Delphi