Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

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

 
Tornado ©   (2004-05-13 10:36) [0]

Закрываю окно чужого приложения таким образом:

PostMessage(FindWindow(nil, "32Bit - DirStat"), WM_QUIT, 0, 0)

Дело в том что это чужое приложение выполняет некие действия, а мое приложение периодически шлет ему такое сообщение на закрытие и чужое приложение закроется при помощи этого сообщения только тогда когда оно закончит свою работу. Когда работа этого приложения заканчивается то оно закрывается, все хорошо, НО вместе с ним закрывается и мое приложение :) PostMessage выполняется в отдельном потоке.


 
sniknik ©   (2004-05-13 10:45) [1]

попробуй так
hndl:= FindWindow(nil, "32Bit - DirStat");
if hndl <> 0 then PostMessage(hndl, WM_QUIT, 0, 0)


 
Tornado ©   (2004-05-13 11:08) [2]

>>> sniknik ©   (13.05.04 10:45) [1]

спасибо все получилось, о возник еще вопрос: как отследить когда чужая программа закрылась? например выдать в этот момент сообщение?


 
Семен Сорокин ©   (2004-05-13 11:09) [3]

Tornado ©   (13.05.04 11:08) [2]
как отследить когда чужая программа закрылась?

так вот же подсказали в [1]
if hndl <> 0 then
 ..
else
// закрылась


 
sniknik ©   (2004-05-13 11:18) [4]

> else
> // закрылась
или не открывалась никогда. для исключения такого варианта думаю надо "взводить" какуюнибудь переменную при найденом и после анализировать ее.
hndl:= FindWindow(nil, "32Bit - DirStat");
if hndl <> 0 then begin
 PostMessage(hndl, WM_QUIT, 0, 0);
 bol:= true; //оно работало!
end else
 if bol ... // закрылась



Страницы: 1 вся ветка

Текущий архив: 2004.06.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-1085065251
DmitryZ
2004-05-20 19:00
2004.06.06
[D7] Доступ к компонентам, рассположенным в DataModule в DLL?!


14-1085057631
Соловьев
2004-05-20 16:53
2004.06.06
http://www.grineflip.dk/funstuff/kill/kill.htm#


8-1080208527
max003
2004-03-25 12:55
2004.06.06
Воспроизведение звука в неизвестном формате


4-1083243415
DoG
2004-04-29 16:56
2004.06.06
CreateNamedPipe


14-1085234701
Kolyan
2004-05-22 18:05
2004.06.06
Мы все учились понемногу.................