模拟 win7 右下角显示桌面

CrLf

对插屁系统的用户有点用，不算第三方
以前单位电脑还是 xp，习惯了单击 win7 右下角显示桌面的我怎能忍！
左键显示桌面，右键运行 cmd
印象中是用 vb6 折腾的第三个小玩意，不复杂，现在看还有可改进之处
不过反正 xp 退伍了，不想改啦，就这样吧...

Linuxer

vb6依然还那么坚挺啊。。。

。下载了一看那，电脑没装vb6，，

懒得勤快

回复 1# CrLf

tmplinshi

是啊，用了 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

回复 4# tmplinshi


    写这么短不科学...

yu2n

回复 4# tmplinshi

    试试使用 SetParent ？

battih0211

顶帖！感谢分享！