XProfan

 {$cleq}
declare dhdl&,dhdlPar&,fle$,dlg&
fle$:=$tempdir+"d.bmp"
style de fenêtre 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

    Retour Si(Externe("user32","FindWindowExA",Externe("user32","FindWindowExA",Externe("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0)>0,Externe("user32","FindWindowExA",Externe("user32","FindWindowExA",Externe("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"Internet Explorer_Server",0),Externe("user32","FindWindowExA",Externe("user32","FindWindowExA",Externe("user32","FindWindowExA",0,0,"progman",0),0,"SHELLDLL_DefView",0),0,"SysListView32",0))

ENDPROC

proc dulcoiF100

    settimer 100;waitinput;killtimer

endproc