XProfan

!Source wurde am 24.05.2006 in die Babyklappe auf XProfan.Com abgelegt:
ermittelt echtes Handle Desktop

Proc GetDesktop

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

    if h& > 0

        Return h&

    else

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

    endif

EndProc