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