最后9分了,不过可以给高手加信誉分,寻求一个关于隐藏桌面的程序,在线等待答案,大家帮帮我这个穷人吧,发达了不会忘记大家的~~~

Question

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 LongPublic Sub HideDeskTop() '隐藏桌面图标
  Dim hWnd As Long
  hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
  ShowWindow hWnd, 0
End SubPublic Sub ShowDeskTop() '显示桌面图标
  Dim hWnd As Long
  hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
  ShowWindow hWnd, 5
End Sub

Answer 1

好像跟98差不多，如果是这样的话我也会，就一句话ShowWindow FindWindow("progman", vbNullString),0