XProfan

 {$iq}
Declare cur&,bereich#,a&,b&,x&,ilist&
Dim bereich#,256

Proc Screenshot

    Parameters dname$
    Declare Hdc&
    Declare Hmdc&
    Declare Hbitmap&
    Declare maxX%, maxY%
    maxX%=%maxX
    maxY%=%maxY
    Hdc&=GetDC(0)
    Hmdc&=CreateCompatibleDC(hdc&)
    Hbitmap&=CreateCompatibleBitmap(hdc&,maxX%,maxY%)
    SelectObject(hmdc&,hbitmap&)
    BitBlt(hmdc&,0,0,maxX%,maxY%,hdc&,0,0,$0CC0020)
    ImageList_Draw(ilist&, 0, hmdc&, a&, b&, ILD_NORMAL)
    SavePic dname$, Hbitmap&
    DeleteObject hbitmap&
    DeleteDC(hmdc&)
    ReleaseDC(0,hdc&)

Endproc

Clear bereich#
Long bereich#,0=20
GetCursorInfo(bereich#)

If Long(bereich#,4)

    x&=Long(bereich#,8)
    a&=GetSystemMetrics(SM_CXCURSOR)
    b&=GetSystemMetrics(SM_CYCURSOR)
    ilist&=Create("ImageList", a&, b&)
    ImageList("AddIcon", ilist&, x&)
    a&=Long(bereich#,12)
    b&=Long(bereich#,16)
    Clear bereich#
    GetIconInfo(x&,bereich#)
    a&=a&-Long(bereich#,4)
    b&=b&-Long(bereich#,8)
    Screenshot("C://___Testpic.png")
    WaitInput
    DeleteObject ilist&

EndIf

Dispose bereich#
../Function-References/XProfan/end/'>End