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

模拟 win7 右下角显示桌面

对插屁系统的用户有点用,不算第三方
以前单位电脑还是 xp,习惯了单击 win7 右下角显示桌面的我怎能忍!
左键显示桌面,右键运行 cmd
印象中是用 vb6 折腾的第三个小玩意,不复杂,现在看还有可改进之处
不过反正 xp 退伍了,不想改啦,就这样吧...
链接: https://pan.baidu.com/s/1AzKVzdR-2lfxzkXf7CBkWQ?pwd=qzex
链接: https://pan.baidu.com/s/1u2QHgGH4pHqmDPjZ3URcZQ?pwd=qkg7

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

。下载了一看那,电脑没装vb6,,
问题解决后,请在标题前面注明[已解决],并给回答者加分——化繁为简,提高工作效率!

TOP

回复 1# CrLf

TOP

本帖最后由 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

回复 4# tmplinshi


    写这么短不科学...

TOP

回复 4# tmplinshi

    试试使用 SetParent ?
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

顶帖!感谢分享!

TOP

返回列表