XProfan

Um den Cursor des eigenen Prozess trop ermitteln gibt es oui aussi qui API GetCursor().

- page 2 -

Frank
Abbing

cela ici klappt zumindest wunderbar:
Kompilieren Marque Séparation

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

je crois tu peux par-dessus pas toujours ermitteln, quel Cursor grade angezeigt wird, zum Beispiel si un anderer Prozess den Cursor selbst défini.

peut-être wirklich simple la fois 2 xprfs qui un static sur hWnd erzeugen, beiden per SetClassLong une certain Wert zuweisen, et mutuel abprüfen. je crois nämlich cela klappt pas.

Nachtrag: peut-être était MS aussi so gentil, et schleift une "globalen" hCursor irgendwo par, et peut-être aussi dans GetClassLong(GetDesktopWindow(),GCL_HCURSOR) - mais cela wäre arrêt trop vérifier, si cette aussi z.B. Childs beachtet.

je würds mais aussi toll trouver trop savons, comme réellement klappt. Wäre tout de suite dans "Programme" une Trayicon-variante abgelegt, qui sur un Hotkey reagiert, et simple toujours seulement PNG sur Desktop ablegt.

cela wäre ensuite z.B. pour mich cela beste Screenshot-Tool "auf Welt".

So comment mon Lineal, hach je liebe mon Lineal...

Normann
Strübli

@Dietmar

[...]

(vbcapture avec Demo)
[...]

(screenhunter Télécharger de chip.de, comment dit programm pas getestet)

Sollte marcher, quoique qui à gauche aus meinem ersten poste chez mir aussi aller...

Frank
Abbing

iF, c'est simple den aktuellen Cursor trop ermitteln, verrenn toi doch pas. Teste cela la fois:
Kompilieren Marque Séparation

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

malheureusement pas, exposition la fois:

no.png	3 kB

Hochgeladen:	01.12.2008

Downloadcounter:
		Download

Frank
Abbing

Ok, ici est un besserer Code. qui hat chez meinen Tests jeden aiguille gesnappt, ausser den de Editfeldern:
Kompilieren Marque Séparation

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

cela Zeigerfinden klappt avec cela pas mal, et es ergibt sich un nouveau Problem.

qui Cursor avons une gesetzten "HotSpot" - dessen XY trop ermitteln ist wohl aussi nötig, à korrekte Position pour cela trop zeichnende Icon trop errechnen.

allez cela alles pas irgendwie einfacher?

Frank
Abbing

aussi là pourrait GetCursorInfo hilfreich son. exposition la fois dans qui Struktur chez ptScreenPos.

Nachtrag: MS écrit trop qui API GetCursor:

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

.
Funktioniert oui aussi wunderbar. pourquoi cela justement dans Editboxen pas klappt weiss je malheureusement pas. peux seulement vermuten, dass là un d'autre Zeigermedium genutzt wird et qui eigentliche Mauszeiger unsichtbar ist...

pas qui Cursorposition, mais qui Position des gesetzten Hotspot/Mittelpunkt im Icon welchen on plan de mouse.x et mouse.y subtrahieren muss, avant dem Zeichnen des Icônes.

Frank
Abbing

pas qui Cursorposition, mais qui Position des gesetzten Hotspot/Mittelpunkt im Icon welchen on plan de mouse.x et mouse.y subtrahieren muss, avant dem Zeichnen des Icônes.

qui liefert dir qui API GetIconInfo().

02.12.2008 ▲