Lutz Ifer Grillmeister

Anmeldungsdatum: 23.09.2005 Beiträge: 555
|
Verfasst am: 30.05.2006, 18:33 Titel: |
|
|
Für den gesamten PC, innerhalb deiner Anwendung, Windows oder Linux?
gesamter PC: systemsteuerung, maus.
innerhalb anwendung, linux und dos: setmouse ,,0 um den mauszeiger zu deaktivieren, dann per put an die position der maus eine grafik malen. vorher natürlich hintergrund zwischenspeichern, und bei bewegung wieder zurückschreiben.
windows: winapi benutzen:
Code: | Option Explicit
#include "windows.bi"
Dim As HWND hwnd
Dim As HCURSOR OldCursor
Dim As HCURSOR NewCursor
ScreenRes 640, 480, 32
WindowTitle "cursordemo"
hwnd = FindWindow(NULL, "cursordemo")
NewCursor = LoadCursorFromFile("C:\Windows\Cursors\3dgno.cur")
OldCursor = Cast(HCURSOR, SetClassLong(hwnd, GCL_HCURSOR, Cast(LONG, NewCursor)))
Do While Inkey = ""
Sleep 50
Loop
SetClassLong hwnd, GCL_HCURSOR, Cast(LONG, OldCursor)
DestroyCursor NewCursor |
(quelle: keine ahnung - von mir isses nicht)
Lutz Ifer _________________ Wahnsinn ist nur die Antwort einer gesunden Psyche auf eine kranke Gesellschaft. |
|