Главная страница
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.043 c
1-1102145792
Юрик
2004-12-04 10:36
2004.12.19
Свернуть приложение


1-1102006937
Delphin
2004-12-02 20:02
2004.12.19
Destroy


14-1101407893
Ломборозо
2004-11-25 21:38
2004.12.19
Новости в RSS или TXT


4-1099514502
dimaxx
2004-11-03 23:41
2004.12.19
Трабл с чтением файла в библиотеке


1-1102409604
Dmitriy O.
2004-12-07 11:53
2004.12.19
Как ROWS В DbGrid (RxDbGrid) копировать в буфер ?