[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 tmplinshi 于 2015-3-29 01:51 编辑

是啊,用了 WIN7 后就不习惯 XP 缺少此功能了。

我试着用 AHK 写,弄了好长时间都没搞定。。然后下载了你的源码,看到你用了置顶,但是在 ahk 里却无效。最后把窗口提到前面才成功。

  1. ; 屏幕右下角添加类似 WIN7 的显示/隐藏桌面
  2. hWin := WinExist("ahk_class Shell_TrayWnd")
  3. WinGetPos, x, y, w, h, ahk_id %hWin%
  4. guiW := 10
  5. guiX := w - guiW
  6. Gui, +Parent%hWin% +LastFound -Caption
  7. Gui, Color, 2257D5
  8. Gui, Show, w%guiW% h%h% x%guiX% y0 NA
  9. WinSet, Top
  10. OnMessage(0x202, "ShowHideDesktop") ; WM_LBUTTONUP = 0x202
  11. Return
  12. ShowHideDesktop() {
  13.         static objShell := ComObjCreate("shell.application")
  14.         objShell.ToggleDesktop()
  15. }
复制代码

TOP

返回列表