Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для wolkow70

Ветеран


Сообщения: 3206
Благодарности: 845

Профиль | Отправить PM | Цитировать


kotkovets,
Помогите разобраться с автозакрытием программ
Нужно перед установкой Орбита закрыть браузеры

В скрипте:

!include WinMessages.nsh

Function CloseProgram
Exch $1
Push $0
loop:
FindWindow $0 $1
IntCmp $0 0 done
#SendMessage $0 ${WM_DESTROY} 0 0
SendMessage $0 ${WM_CLOSE} 0 0
Sleep 100
Goto loop
done:
Pop $0
Pop $1
FunctionEnd


Function .onInit
;
loop:
FindWindow $0 "IEFrame"
IntCmp $0 0 done
IsWindow $0 0 done
System::Call 'user32::PostMessageA(i,i,i,i) i($0,${WM_CLOSE},0,0)'
Sleep 100
Goto loop
done:
;
Push "MozillaWindowClass"
Call CloseProgram

Push "OperaWindowClass"
Call CloseProgram
;
FunctionEnd

IE закрывается , а FireFox и Opera нет.
Классы заголовков смотрел в Win32Spy.

-------
Человек человеку - друг, товарищ и волк!


Отправлено: 08:45, 09-03-2012 | #2390