WinAutoHide – 让窗口贴边隐藏（更新到v1.02）

发现频道 🔎
22

V2 用户的话，推荐用 H 版，AutoHotkey 的最富集，兼容 L 版

EdgeHiding(hwnd, to := 1) {
	if InStr('|Progman|Shell_TrayWnd|WorkerW|', '|' WinGetClass(hwnd) '|')
		return

	if id := DllCall('FindWindowW', "ptr", 0, "str", 'EdgeHiding_' hwnd, "ptr")
		return SendMessage(40400, , , , id)

	if DllCall("IsZoomed", "ptr", hwnd)
	{
		WinRestore hwnd
		Sleep 20
	}

	WinGetPos &x, &y, &w, &h, hwnd
	b := SysGet(4)

	switch to ;1下 ，2左, 3上, 4右
	{
		case 1:
			mx := x
			my := A_ScreenHeight - h
			ax := x
			ay := A_ScreenHeight - 2
			aw := w
			ah := 2
		case 2:
			mx := 0
			my := y
			ax := -20
			ay := y
			aw := 22
			ah := h - b
		case 3:
			mx := x
			my := -20
			ax := x
			ay := 0
			aw := w
			ah := 22
		default:
			mx := A_ScreenWidth - w
			my := y
			ax := A_ScreenWidth - 1
			ay := y
			aw := 1
			ah := h - b
	}

	WinMove mx, my, , , hwnd
	ui := Gui('+Owner' hwnd ' -Caption AlwaysOnTop +ToolWindow +E0x8000000', 'EdgeHiding_' hwnd)

	ui.exsty := DllCall("GetWindowLongW", "ptr", hwnd, "int", -20, "int")
	ui.sty := DllCall("GetWindowLongW", "ptr", hwnd, "int", -16, "int")

	WinSetAlwaysOnTop 1, hwnd
	WinHide hwnd


	WinSetStyle -0xC00000, hwnd ; 隐藏标题栏

	;WinSetExStyle +0x80, hwnd ;隐藏三按钮
	;WinSetStyle +0x80000000, hwnd ;弹窗模式，特点是无边框


	ui.show("NoActivate  x" ax " y" ay " w" aw " h" ah)

	WinSetTransparent 1, ui.hwnd
	ui.OnMessage(0x200, EdgeHiding_show)
	ui.OnMessage(40400, EdgeHiding_destroy)

	ui.win := hwnd
	ui.x := x
	ui.y := y
}


EdgeHiding_destroy(ui, *) {
	ui.de := 1
	WinActivate ui.hwnd
	Sleep 20

	;WinSetExStyle -0x80, ui.win
	;WinSetStyle -0x80000000, ui.win

	WinSetStyle +0xC00000, ui.win
	DllCall("SetWindowLongW", "ptr", ui.win, "int", -20, "int", ui.exsty)
	DllCall("SetWindowLongW", "ptr", ui.win, "int", -16, "int", ui.sty)

	WinSetAlwaysOnTop 0, ui.win

	WinShow ui.win
	WinMove ui.x, ui.y, , , ui.win
	WinActivate ui.win

	ui.destroy()
}

EdgeHiding_show(ui, *) {
	ui.OnMessage(0x200, EdgeHiding_show, 0)
	ui.Hide()

	if !WinExist(ui.win)
		return SendMessage(40400, , , , ui.hwnd)

	WinShow ui.win
	WinActivate ui.win
	WinWaitNotActive ui.win
	if ui.HasOwnProp('de')
		return

	if !WinExist(ui.win)
		return SendMessage(40400, , , , ui.hwnd)

	WinHide ui.win
	ui.show('NoActivate')
	ui.OnMessage(0x200, EdgeHiding_show)
}
23

如果都要判断各个边缘的自动隐藏窗口在鼠标离开时的大小、位置变化然后是否该隐藏或隐藏要移动的距离，那这要得经过大改写了，原代码的架构要实现会非常冗余……

24

.OnMessage()

这个功能原来是 2.1 的新功能，不是 2.0。不过 H2.0 已经包含了。

1 个赞
25

哈哈，我一般置顶就行了，隐藏类的程序用的少。 :grinning:

26

怎么把热键改为ctrl或者alt 加方向键啊？win键我占用了

27

脚本第19~22行的“#”代表的是Win键，改成“^”表示Ctrl键，改成“!”表示Alt键。

28

好的 感谢

29

有这么个软件preme for windows也有类似功能,而且更优雅,按住左键在最小化按钮处向某个方向拉,就会隐藏到对应的边缘.还有角触发,按键映射啥的,功能也不少

30

界面的确优雅有特色，而且很多便利功能。隐藏窗口还有流畅动画，值得推荐。
——
就是不明白为啥要整四份分身（还有一份在Program Files中）：

图片
图片1056×405 30 KB

而且必须安装，不能绿色运行。

31

我还真没注意过,放两个地方是权限问题吧,

为啥四个都一样我猜不出来,难道名字不一样还能有不同的功能么

才发现,这个东西也是ahk写的

图片
图片787×192 9.52 KB

32

还真是AHK：

图片
图片1500×860 149 KB

似乎是通过不同的文件名来区分该执行哪部分功能……算是为了判断是否已安装，那也不用这么多份吧，况且其还释放了“Preme for Windows”文件夹来存放一些素材文件；而且放 AppData 文件夹并不能提升权限，放 Program Files 中才能。
我只能认为，作者希望Preme在使用者电脑中稳当住下，想尽了办法不让别人通过“复制-粘贴”就获得绿色版。

33

有点 low

34

反馈些bug,在桌面隐藏一个文本文件窗口到右侧,鼠标这时候再点击空白桌面,再按下快捷键会出现热键无法正确唤出刚才隐藏的文本文件窗口.另外鼠标悬停窗口后,移开也会有窗口无法隐藏的情况出现.
可否优化一下, 观测鼠标的代码.