ret = regcreatekey(HKEY_CURRENT_USER, "saftware\microsoft\windows\currentversion\policies\explorer", khw)

提示:加入模块 声明api
剩下自己解决

[[italic] 本帖最后由 烟雨袅袅 于 2007-12-16 15:51 编辑 [/italic]]

谢谢了啊，有没有别的什么办法

还是不会的，哥们你能不能说完

还是不行啊，没有点通啊

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Const sTrayWindow = "Shell_TrayWnd"
Private Const sDesktopIcon = "ShellDll_DefView"
Private Const sProgman = "Progman"
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Dim wnd As Long, wnd1 As Long
Dim lbHide As Boolean
Private Sub Command1_Click()
    Dim i As Integer
    wnd1 = FindWindow(sTrayWindow, vbNullString)
   
    wnd = FindWindow(sProgman, vbNullString)
    wnd = FindWindowEx(wnd, 0, sDesktopIcon, vbNullString)
    If lbHide = False Then
        ShowWindow wnd, SW_HIDE
        ShowWindow wnd1, SW_HIDE
        lbHide = True
    Else
        ShowWindow wnd, SW_SHOW
        ShowWindow wnd1, SW_SHOW
        lbHide = False
    End If

End Sub

'是不是要这样的效果啊!

楼主接收附件,比较完整了

这是对窗口进行操作，没有用注册表

API可以不声明直接用的？

必须要声明

模块中加入



 Command1_Click


17楼提供完整附件,具体修改什么子键自己改动一下

[[italic] 本帖最后由 烟雨袅袅 于 2007-12-16 15:57 编辑 [/italic]]