怎样不用修改注册表隐藏桌面图标

lanrain 2001-12-13 03:05:22
我想在不用修改注册表的情况下,隐藏桌面上的所有图标,那位大虾知道请告诉我
我先谢谢了
lan..h@263.net
...全文
169 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
enmity 2001-12-13
  • 打赏
  • 举报
回复
前提是程序运行的时候才生效,系统重新启动就没有效果了。
enmity 2001-12-13
  • 打赏
  • 举报
回复
声明:

Option Explicit

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5


Private Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As _
Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal _
hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long


Public Sub ShowDesktop(bShow As Boolean)

Dim hLong As Long
Dim hwnd As Long

hwnd = FindWindow("Progman", "Program Manager")
hLong = FindWindowEx(hwnd, 0, "SHELLDLL_DefView", "")
hLong = FindWindowEx(hLong, 0, "SysListView32", "")

If bShow = True Then
ShowWindow hLong, SW_SHOW
Else
ShowWindow hLong, SW_HIDE
End If

End Sub


使用:
隐藏: ShowDesktop False
显示:ShowDesktop True

7,755

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧