找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 22554|回复: 6

模拟 win7 右下角显示桌面

[复制链接]
发表于 2014-11-7 20:54:57 | 显示全部楼层 |阅读模式
对插屁系统的用户有点用,不算第三方
以前单位电脑还是 xp,习惯了单击 win7 右下角显示桌面的我怎能忍!
左键显示桌面,右键运行 cmd
印象中是用 vb6 折腾的第三个小玩意,不复杂,现在看还有可改进之处
不过反正 xp 退伍了,不想改啦,就这样吧...
链接: https://pan.baidu.com/s/1AzKVzdR-2lfxzkXf7CBkWQ?pwd=qzex
链接: https://pan.baidu.com/s/1u2QHgGH4pHqmDPjZ3URcZQ?pwd=qkg7
发表于 2014-11-11 10:18:48 | 显示全部楼层
vb6依然还那么坚挺啊。。。

。下载了一看那,电脑没装vb6,,
发表于 2015-2-12 12:11:13 | 显示全部楼层
回复 1# CrLf
发表于 2015-3-29 01:16:12 | 显示全部楼层
本帖最后由 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. }
复制代码
 楼主| 发表于 2015-3-29 12:29:18 | 显示全部楼层
回复 4# tmplinshi


    写这么短不科学...
发表于 2016-4-3 14:02:05 | 显示全部楼层
回复 4# tmplinshi

    试试使用 SetParent ?
发表于 2020-11-14 13:29:29 | 显示全部楼层
顶帖!感谢分享!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 23:26 , Processed in 0.021435 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表