XProfan

- Página 2 -

GetClassLong es mi humilde opinión no Prozess übergreifend*, Por favor, teste el una vez.

*NT

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

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 ▲