XProfan

 {$cleq}
declarar dhdl&,dhdlPar&,fle$,dlg&
fle$:=$tempdir+"d.bmp"
windowstyle 80
cls
dlg&:=createwindow(0,"",0,0 ,%maxx,%maxy)
dhdl&:=getDesktopHdl()
dhdlPar&:=external("user32","GetParent",dhdl&)
external("user32","SetParent",dhdl&,dlg&)
dulcoiF100
startpaint dlg&
savebmp fle$,0,0 - %maxx,%maxy
endpaint
external("user32","SetParent",dhdl&,dhdlPar&)
shell "rundll32.exe url.dll,FileProtocolHandler "+fle$
end

Proc GetDesktopHdl

    Volver If(Externo("user32","FindWindowExA",Externo("user32","FindWindowExA",Externo("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0)>0,Externo("user32","FindWindowExA",Externo("user32","FindWindowExA",Externo("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0),Externo("user32","FindWindowExA",Externo("user32","FindWindowExA",Externo("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"SysListView32",0))

ENDPROC

proc dulcoiF100

    settimer 100;waitinput;killtimer

ENDPROC