Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement