#Include, %A_ScriptDir%\Lib\Classes\Util\MiscUtils.ahk
#Include, %A_ScriptDir%\Lib\Classes\Util\Environment\StringUtils.ahk
#Include, %A_ScriptDir%\Lib\Classes\Util\File\File.ahk
#Include, %A_ScriptDir%\Lib\Classes\Util\File\Process.ahk
#Include, %A_ScriptDir%\Lib\Classes\Util\UI\Control.ahk
#Include, %A_ScriptDir%\Lib\Classes\Util\UI\Window.ahk
#Include, %A_ScriptDir%\Lib\Classes\Util\UI\WindowTitle.ahk
#Include, %A_ScriptDir%\Module Extensions\VA_Extension.ahk
#Include, %A_ScriptDir%\Module Extensions\VA.ahk
Hotkey, Esc, closescript
MiscUtils.TaskBarKill("off")
; msgbox Taskbar killed
Sleep, 1000
MiscUtils.TaskBarKill("on")
ExitApp
ScriptError(txt,a="") {
msgbox % txt
}
GetFullName( fn ) {
; http://msdn.microsoft.com/en-us/library/Aa364963
; Static buf, i ; removed i from static because it was always using HS's root folder as the working dir which threw off all relative paths
Static buf
; If !i
i := VarSetCapacity(buf, 512)
DllCall("GetFullPathNameA", "str", fn, "uint", 512, "str", buf, "str*", 0)
Return buf
}
GetOSVersion() {
VarSetCapacity(v,148), NumPut(148,v)
DllCall("GetVersionEx", "uint", &v)
; Return formatted version string similar to A_AhkVersion.
; Assume build number will never be more than 4 characters.
return NumGet(v,4) ; major
. "." NumGet(v,8) ; minor
. "." SubStr("0000" NumGet(v,12), -3) ; build
}
closescript:
ExitApp
Comments