XProfan

Def XFindWindow(2) ! user32,FindWindowA
Def FindWindowEx(4) ! user32,FindWindowExA

Proc GetDesktop

    Declarar h&
    h& = XFindWindow(Progman,0)
    h& = FindWindowEx(h&, 0, SHELLDLL_DefView,0)
    h& = FindWindowEx(h&, 0, Internet Explorer_Server,0)

    if h& > 0

        Volver h&

    más

        h& = XFindWindow(Progman,0)
        h& = FindWindowEx(h&, 0, SHELLDLL_DefView,0)
        h& = FindWindowEx(h&, 0, SysListView32,0)
        Volver h&

    endif

ENDPROC

getDesktop{

    volver If(findWindowEx(findWindowEx(FindWindowEx(,,progman,),,SHELLDLL_DefView,),,Internet Explorer_Server,)>0,findWindowEx(findWindowEx(findWindowEx(,,progman,),,SHELLDLL_DefView,),,Internet Explorer_Server,),findWindowEx(findWindowEx(findWindowEx(,,progman,),,SHELLDLL_DefView,),,SysListView32,))

}

 $H Windows.ph

Proc Getdesktop

    Volver If(~FindWindowExA(~FindWindowExA(~FindWindowExA(0,0,progman,0),0,SHELLDLL_DefView,0),0,Internet Explorer_Server,0)>0,~FindWindowExA(~FindWindowExA(~FindWindowExA(0,0,progman,0),0,SHELLDLL_DefView,0),0,Internet Explorer_Server,0),~FindWindowExA(~FindWindowExA(~FindWindowExA(0,0,progman,0),0,SHELLDLL_DefView,0),0,SysListView32,0))

ENDPROC