用getclassname可以发现桌面的窗体类为sysListview32。。。

可是为什么下面的代码把"progman"换成"sysListview32"就不能实现原有的功能（把桌面的图标隐藏）？

Private Sub Command2_Click()
Dim hWnd As Long
hWnd = FindWindowEx(0, 0, "progman", vbNullString)
ShowWindow hWnd, SW_HIDE
End Sub

不会吧，今天高手都跑哪去了？？？

这个偶也想知道~~~~~

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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

Const SW_HIDE = 0
Const SW_NORMAL = 1

Dim hDeskTop As Long

Private Sub Command2_Click()
'下面三个用其一都可以

hDeskTop = FindWindow("progman", vbNullString)
hDeskTop = FindWindowEx(hDeskTop, 0, "shelldll_defview", vbNullString)
hDeskTop = FindWindowEx(hDeskTop, 0, "syslistview32", vbNullString)

ShowWindow hDeskTop, SW_HIDE
End Sub

哦，不好意思，好久没来了。。。

谢谢LS，不过这个方法偶试过了，
hDeskTop = FindWindowEx(hDeskTop, 0, "syslistview32", vbNullString)
用这句是达不到"progman"的效果的。。。

原因到现在偶也还没弄明白

没明白楼主要干嘛

隐藏桌面图标，，，这就是目的呀！

隐藏桌面图标用修改注册表！！

晕，你有没有运行过代码，LZ的代码就能实现~~~~