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

[lanrain]

我想在不用修改注册表的情况下,隐藏桌面上的所有图标,那位大虾知道请告诉我
我先谢谢了
[e-mail]

[enmity]

声明：

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

[enmity]

前提是程序运行的时候才生效，系统重新启动就没有效果了。