Ветеран
Сообщения: 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
|