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