Как проверить что окно закрылось?

[Lrundom]

При программном закрытии окон навижена, используя SendKeys, возник один вопрос: Как проверить, что закрываемое окно закрылось? Или же что не осталось не закрытых окон?

[Sancho]

for i := 1 to 10000 do
sendkeys({Esc});

©

[Lrundom]

да именно так у мня и написано. Я хотела лишь уточнить, если в результате нажатия Ескейп, окно не закроется(по тем или иным причинам). Ну допустим, выдаст какое либо сообщение перед закрытием, которое по ескейп не зароется. Как в таком случае отследить закрылись все окна или нет?

[Lrundom]

по данному коду закрывается лишь активное оно.. а если во время срабатывания кода пользователь работает в другом приложении на которое ескейп не действует. По моему разумению логично было перед выполнением цикла с ескейп, сделать окно навижена активным. Каким образом это можно сделать?

[Sancho]

а с какими еще приложениями ваши пользователя работают, негодяи?

а если серьезно, то зачем закрывать все окна? если надо просто закрыть Нав, то можно грубо и беспардонно убить процесс.

[Lrundom]

ну можно , хотя не совсем удобно. каждый раз новый пользователь должен запускать навижн.. эт конечно не долго. но все же... я нашла команду WshShell.AppActivate. пробовала разные варианты, но навижн не активируется... Мож кто знает каким образом ее применяют в наве?

[Sancho]

а можно исходную задачу услышать?
зачем вообще все это?

[Lrundom]

вообщем, я неправильно имя приложения,то бишь навижена задавала.
[codebox]IF wndHost.AppActivate(q) THEN
FOR i:=1 TO 50 DO
wndHost.SendKeys('{ESC}');[/codebox]

я думала что нужно писать аналогично названию процесса, т.е. finsql. Но так не работало.
Потому, попробовала определить q:='NAVISION', но оказалось что так он закрывает только 4-ку,
попробовала q:='Microsoft Dynamics NAV' и оказалось что такой вариант вполне благополучно активирует 5-ку и закрывает в ней все окна