XProfan

around the Cursor of their own Process To detect there indeed The API GetCursor().

- Page 2 -

Frank
Abbing

the here works at least wonderful:
Compile Mark Separation

 {$iq}
Declare x&
Cls
x&=GetClassLong(GetDesktopWindow(),GCL_HCURSOR)
Print x&
WaitInput
E

I faith You can above not always detect, which Cursor grade displayed becomes, to that example if another Process whom Cursor self definiert.

Perhaps really simply time 2 xprfs The one static on hWnd produce, both by SetClassLong a designed worth allocate, and mutual abprüfen. I faith namely the works not.

Nachtrag: Perhaps was MS too so nice, and schleift a "globalen" hCursor somewhere through, and Perhaps too in GetClassLong(GetDesktopWindow(),GCL_HCURSOR) - but the would hold To Verify, whether this too z.B. Childs mind.

I würds but too cool find to know, as objectively works. would be immediate in "Programme" a Trayicon-Variante stored, The on one Hotkey reacted, and simply always only PNG on Desktop ablegt.

the would then z.B. for me the best Screenshot-Tool "auf Welt".

so How my ruler, hach I love my ruler...

Normann
Strübli

@Dietmar

[...]

(vbcapture with demonstration)
[...]

(screenhunter Download of chip.de, How said Program not tested)

ought to functions, though The left from my first mail by me too weg...

Frank
Abbing

iF, its simply whom actually Cursor To detect, verrenn you still not. Teste the time:
Compile Mark Separation

 {$iq}
Declare x&,ilist&
x&=GetClassLong(GetActiveWindow(),GCL_HCURSOR)
ilist&=Create("ImageList", 32, 32)
ImageList("AddIcon", ilist&, x&)
Cls

Whileloop 1000

    DrawIcon ilist&, 0, Rnd(%maxx), Rnd(%maxy)

EndWhile

WaitInput
DeleteObject ilist&
End

unfortunately not, look time:

no.png	3 kB

Hochgeladen:	12/01/08

Downloadcounter:
		Download

Frank
Abbing

OK, here's one better code. The has with my Tests each Zeiger gesnappt, except whom of Editfeldern:
Compile Mark Separation

 {$iq}
Declare cur&,bereich#,a&,b&,x&,ilist&
Dim bereich#,256
Clear bereich#
Long bereich#,0=20
GetCursorInfo(bereich#)
x&=Long(bereich#,8)
a&=GetSystemMetrics(SM_CXCURSOR)
b&=GetSystemMetrics(SM_CYCURSOR)
ilist&=Create("ImageList", a&, b&)
ImageList("AddIcon", ilist&, x&)
Cls

Whileloop 1000

    DrawIcon ilist&, 0, Rnd(%maxx), Rnd(%maxy)

EndWhile

WaitInput
DeleteObject ilist&
Dispose bereich#
End

the Zeigerfinden works so integrally well, and it yields itself one new Problem.

The Cursor having a gesetzten "HotSpot" - which XY To detect is well too necessary, around the korrekte position for the To zeichnende Icon To calculate.

goes the everything not somehow plainer?

Frank
Abbing

too there might GetCursorInfo helpful his. look time into structure with ptScreenPos.

Nachtrag: MS writes to the API GetCursor:

windows 98 and windows NT 4.0 SP3 and later: To get information on the global cursor, even if it is hardship owned by the current thread, use GetCursorInfo.

.
functions indeed wonderful. Why the straight in Editboxen not works knows I unfortunately not. can only suppose, that there one other Zeigermedium used and is the eigentliche Cursor invisible is...

not The Cursorposition, separate The position the gesetzten Hotspot/Mittelpunkt in the Icon whom one even of mouse.x and mouse.y subtrahieren must, to the draw the Icons.

Frank
Abbing

not The Cursorposition, separate The position the gesetzten Hotspot/Mittelpunkt in the Icon whom one even of mouse.x and mouse.y subtrahieren must, to the draw the Icons.

The supply you The API GetIconInfo().

12/02/08 ▲

- Page 3 -

Frank
Abbing

here the complete code. The Dateiname for the Image ought to adjusted go or wählbar made go:
Compile Mark Separation

 {$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#
End

12/02/08 ▲