diff options
Diffstat (limited to 'borders.ahk')
-rw-r--r-- | borders.ahk | 90 |
1 files changed, 90 insertions, 0 deletions
diff --git a/borders.ahk b/borders.ahk new file mode 100644 index 0000000..0261e6e --- /dev/null +++ b/borders.ahk @@ -0,0 +1,90 @@ +;window border removal ahk script +;for use at work, on XP + +;doesn't work via include, must run standalone + +GoSub, HookWindow + +HookWindow: + ; New Window Hook + Gui +LastFound + hWnd := WinExist() + + DllCall( "RegisterShellHookWindow", UInt,hWnd ) + MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" ) + OnMessage( MsgNum, "ShellMessage" ) + + ShellMessage(wParam,lParam) { + If (wParam = 1) ; HSHELL_WINDOWCREATED := 1 + { + Sleep, 10 + AdjustWindow(lParam) + } + } +Return + +AdjustWindow(id) +{ + WinId := id + WinTitle := id = "A" ? "A" : "ahk_id " . id + + ; This is to check if the window is shown in the alt-tab menu, you don't want to do it on every single frame + WinGet, WinExStyle, ExStyle, %WinTitle% + If (WinExStyle & 0x80) + { + Return + } + + WinGetClass, WinClass, %WinTitle% + WinGet, WinProcess, ProcessName, %WinTitle% + + If WinClass In % "CabinetWClass" + If WinProcess In % "explorer.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + + + + If WinClass In % "ShImgVw:CPreviewWnd" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "Photoshop.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "sumatrapdf.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "mintty.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "7zFM.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "msaccess.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "excel.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "Notepad2.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } + If WinProcess In % "outlook.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + Winset, AlwaysOnTop, off, %WinTitle% + } + If WinProcess In % "winword.exe" + { + WinSet, Style, -0xC00000, %WinTitle% + } +}
\ No newline at end of file |