标题: 模拟 win7 右下角显示桌面 [打印本页]
作者: CrLf 时间: 2014-11-7 20:54 标题: 模拟 win7 右下角显示桌面
对插屁系统的用户有点用，不算第三方
以前单位电脑还是 xp，习惯了单击 win7 右下角显示桌面的我怎能忍！
左键显示桌面，右键运行 cmd
印象中是用 vb6 折腾的第三个小玩意，不复杂，现在看还有可改进之处
不过反正 xp 退伍了，不想改啦，就这样吧...
链接: https://pan.baidu.com/s/1AzKVzdR-2lfxzkXf7CBkWQ?pwd=qzex
链接: https://pan.baidu.com/s/1u2QHgGH4pHqmDPjZ3URcZQ?pwd=qkg7
作者: Linuxer 时间: 2014-11-11 10:18
vb6依然还那么坚挺啊。。。
。下载了一看那，电脑没装vb6，，
作者: 懒得勤快 时间: 2015-2-12 12:11
回复 1# CrLf
作者: tmplinshi 时间: 2015-3-29 01:16
本帖最后由 tmplinshi 于 2015-3-29 01:51 编辑
是啊，用了 WIN7 后就不习惯 XP 缺少此功能了。
我试着用 AHK 写，弄了好长时间都没搞定。。然后下载了你的源码，看到你用了置顶，但是在 ahk 里却无效。最后把窗口提到前面才成功。
- ; 屏幕右下角添加类似 WIN7 的显示/隐藏桌面
-
- hWin := WinExist("ahk_class Shell_TrayWnd")
- WinGetPos, x, y, w, h, ahk_id %hWin%
- guiW := 10
- guiX := w - guiW
-
- Gui, +Parent%hWin% +LastFound -Caption
- Gui, Color, 2257D5
- Gui, Show, w%guiW% h%h% x%guiX% y0 NA
- WinSet, Top
-
- OnMessage(0x202, "ShowHideDesktop") ; WM_LBUTTONUP = 0x202
- Return
-
- ShowHideDesktop() {
- static objShell := ComObjCreate("shell.application")
- objShell.ToggleDesktop()
- }
作者: CrLf 时间: 2015-3-29 12:29
回复 4# tmplinshi
写这么短不科学...
作者: yu2n 时间: 2016-4-3 14:02
回复 4# tmplinshi
试试使用 SetParent ？
作者: battih0211 时间: 2020-11-14 13:29
顶帖！感谢分享！
| 欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |