【问】如何取得桌面的句柄？

Question

如题

Answer 1

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 sub form_load()
    dim hWindow as long
    hWindow = FindWindow("Progman", "Program Manager")
    hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", "")
    hWindow = FindWindowEx(hWindow, 0, "SysListView32", "")
    me.caption = hwindow
end sub

Answer 2

或者用 GetDesktopWindow,SysListView32要在winxp里面，win98和2000里面是progman