XProfan

 {$cleq}
windowstyle ( 512 | 80 )
window 0,0 - 0,0
cls rgb(0,78,152)
external("user32","SetParent",%hwnd,getdesktop())
showwindow (%hwnd,3)
waitkey
end

Proc Getdesktop

    Return If(External("user32","FindWindowExA",External("user32","FindWindowExA",External("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0)>0,External("user32","FindWindowExA",External("user32","FindWindowExA",External("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0),External("user32","FindWindowExA",External("user32","FindWindowExA",External("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"SysListView32",0))

Endproc