XProfan

Um el Cursor des eigenen Prozess a ermitteln hay en efecto el API GetCursor().

- Página 2 -

Frank
Abbing

Das hier klappt zumindest wunderbar:
Kompilieren Marca Separación

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

Yo glaube Usted puede darüber no siempre ermitteln, welcher Cursor grade adecuado se, para Ejemplo si una otro Prozess el Cursor incluso definiert.

Tal vez wirklich simplemente veces 2 xprfs el una static en hWnd erzeugen, beiden por SetClassLong una cierto Valor zuweisen, y gegenseitig abprüfen. Yo glaube nämlich el klappt no.

Apéndice: Tal vez war MS auch así nett, y schleift una "globalen" hCursor irgendwo por, y tal vez auch en GetClassLong(GetDesktopWindow(),GCL_HCURSOR) - aber el wäre sólo a prüfen, si dieser auch z.B. Childs beachtet.

Yo würds aber auch toll encontrar a wissen, como tatsächlich klappt. Wäre inmediatamente en "Programme" una Trayicon-Variante abgelegt, el en una Hotkey reagiert, y simplemente siempre sólo PNG en Desktop ablegt.

Das wäre entonces z.B. para mich el beste Screenshot-Tool "auf Welt".

So como mein Lineal, hach Yo liebe mein Lineal...

Normann
Strübli

@Dietmar

[...]

(vbcapture con Demo)
[...]

(screenhunter Descargar de chip.de, como dijo programm no getestet)

Sollte trabajo, obwohl el Links de mi ersten Post en me auch ir...

Frank
Abbing

IF, es simplemente el aktuellen Cursor a ermitteln, verrenn dich doch no. Teste el veces:
Kompilieren Marca Separación

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

Leider no, schau mal:

no.png	3 kB

Hochgeladen:	01.12.2008

Ladeanzahl:
		Descargar

Frank
Abbing

Ok, hier es una besserer Code. Der ha en media Tests cada Zeiger gesnappt, salvo el de Editfeldern:
Kompilieren Marca Separación

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

Das Zeigerfinden klappt así bastante bien, y lo ergibt se una nuevo problema.

El Cursor haben una gesetzten "HotSpot" - dessen XY a ermitteln es wohl auch nötig, a korrekte Position para el a zeichnende Icon a calcular.

Geht el alles no irgendwie einfacher?

Frank
Abbing

Auch como dürfte GetCursorInfo hilfreich ser. Schau veces en el Struktur en ptScreenPos.

Apéndice: MS schreibt a el API GetCursor:

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

.
Funktioniert en efecto wunderbar. ¿Por qué el gerade en Editboxen no klappt blanco Yo por desgracia, no. Kann sólo vermuten, dass hay una más Zeigermedium genutzt se y eigentliche Mauszeiger unsichtbar es...

No el Cursorposition, pero el Position des gesetzten Hotspot/Mittelpunkt en el Icon welchen uno eben de mouse.x y mouse.y subtrahieren muss, antes el Dibujar des Icons.

Frank
Abbing

No el Cursorposition, pero el Position des gesetzten Hotspot/Mittelpunkt en el Icon welchen uno eben de mouse.x y mouse.y subtrahieren muss, antes el Dibujar des Icons.

El liefert dir el API GetIconInfo().

02.12.2008 ▲

- Página 3 -

Frank
Abbing

Hier el komplette Code. Der Dateiname para el Bild debería adaptado voluntad oder wählbar gemacht voluntad:
Kompilieren Marca Separación

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

02.12.2008 ▲