#NoEnv
#NoTrayIcon
SetWorkingDir %A_ScriptDir%
FileEncoding UTF-8
DetectHiddenWindows On
; http://forum.ru-board.com/topic.cgi?forum=5&topic=16530#1
exe:=(FileExist("operamail.exe") ? "operamail.exe" : "opera.exe")
If !FileExist(exe) || WinExist("ahk_exe " exe)
ExitApp
operaprefs:="profile\operaprefs.ini"
FileRead default, operaprefs_default.ini
If Errorlevel || !(default~="Multi User=0")
{
SplitPath A_ScriptDir, dir
operaprefs:=A_AppData "\" ((exe="operamail.exe") ? "Opera Mail" : "Opera") "\" dir "\operaprefs.ini"
}
FileRead ini, % operaprefs
If ErrorLevel
Run % exe, , Max
else
{
If !(ini~="Show Exit Dialog")
ini:=RegExReplace(ini,"\[User Prefs]","[User Prefs]`r`nShow Exit Dialog=2",count)
else If !(ini~="Show Exit Dialog=2")
ini:=RegExReplace(ini,"m)Show Exit Dialog.+","Show Exit Dialog=2",count)
If count
{
FileDelete % operaprefs
FileAppend % ini, % operaprefs
}
Run % exe, , Max
WinWaitActive % "ahk_exe " exe , , 20
WinGetActiveTitle title
If (title~="Opera")
WinClose % "ahk_exe " exe
}
ExitApp
|
