XProfan

 $H Windows.ph
cls
Imprimer "Aha un Bild !!!"
Var hBitmap& = Créer(«PCSI»,0,"&SCRBMP")
Var Clip& = ~OpenClipboard(0)
~EmptyClipboard()
~SetClipboardData(~CF_BITMAP,hBitmap&)
~CloseClipboard()
waitinput
end

CLS
Imprimer "Aha un Bild !!!"
Var hBitmap& = Créer(«PCSI»,0,"&SCRBMP")
Pic2Clip(hBitmap&)
deleteobject hBitmap&
waitinput
Fin

Proc Pic2Clip

    Paramètres Pic&
    Externe("User32","OpenClipboard",0)
    Externe("User32","EmptyClipboard")
    Externe("User32","SetClipboardData",2,Pic&)
    Externe("User32","CloseClipboard")

ENDPROC