XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Desktop-Handle ermitteln
Lauffähig ab Profan-Version 6.6
Def Xfindwindow(2) ! user32,FindWindowA
Def Findwindowex(4) ! user32,FindWindowExA

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

Beispiel:
CLS
GETDESKTOP
PRINT HANDLE DESKTOP: +str$(&(0))
WAITINPUT