Mouse Global verstecken?

[schwa226]

Hi,

ich versuche gerade die Mouse global zu verstecken. Ich habe es geschafft ein Transparenten/Leeren Cursor zu erzeugen.
Wenn ich nun mit SetSystemCursor versuche den Cursor zu ersetzten ist der neue Cursor nur über meiner Form!

Ich will ihn aber überall vertecken?

Delphi-Quellcode:

OldCursor := Screen.Cursors[Screen.Cursor];

NewCursor := LoadCursorFromFile(PWideChar('c:\crEmpty.cur'));

SetSystemCursor(NewCursor, OCR_NORMAL);

EDIT:
kann gelöscht werden!!!!
Fehler war: beim RemoteDebugen habe ich nicht neu compeliert ;)

[mkinzler]

Warum das?

[DeddyH]

Sry, aber eine Anwendung, die mir den Mauszeiger global ausblendet, würde ich genau 2 mal einsetzen, nämlich das erste und das letzte Mal.

[himitsu]

abgesehn davon, daß man den Cursor auch einfach ausblenden kann und ihn nicht über einen unsichtbaren Cursor verstecken muß ...

@DeddyH ... keine Sorge, SetSystemCursor setzt diesen ja nur temporär ... beweg die Maus einfach etwas und sobald du über ein anderes Fensterkommt, setzt diese wieder ihren Cursor :angel:

[DeddyH]

Es ging mir mehr um die Intention dieses Threads unabhängig von der Machbarkeit.

[schwa226]

Mein Programm macht Autostart und da möchte ich die Mouse verstecken.
Wird die Mouse bewegt wird sie wieder angezeigt. Nach einem Timeout wieder ausgeblendet.

Nun habe ich aber eh Probleme:

Delphi-Quellcode:

var
OldCursor : TCursor;
NewCursor : HCursor;

const
  // Yin cursor AND bitmask
  ANDmaskCursor: array[0..127] of byte = (
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF,
    $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
    );

  // Yin cursor XOR bitmask
  XORmaskCursor: array[0..127] of byte = (
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00
    );


OldCursor := Screen.Cursor;

  // Create a custom cursor at run time.
  NewCursor := CreateCursor(HInstance, 19, 2, 32, 32, @ANDmaskCursor, @XORmaskCursor);

SetSystemCursor(NewCursor, OCR_NORMAL);

Nun ist die Mouse versteckt.

Aber wenn ich nun per

Delphi-Quellcode:

SetSystemCursor(OldCursor, OCR_NORMAL);

versuche ihn wieder zu restoren, bleibt er versteckt?

[Luckie]

Zitat:

Zitat von schwa226

Mein Programm macht Autostart und da möchte ich die Mouse verstecken.
Wird die Mouse bewegt wird sie wieder angezeigt. Nach einem Timeout wieder ausgeblendet.

Es wurde nach dem WARUM gefragt. Denn was soll der Blödsinn?

[himitsu]

auch wenn du nun einen "unsichtbaren" Mauszeiger hast ... kennst du schon crNone? :angel2:

[schwa226]

Es handelt sich um einen Shell-Ersatz!
Da will ich die Mouse verstecken und bei bewegung halt wieder anzeigen.

crNone geht nur mit Screen.Cursor. Das wirkt sich dann jedoch nur auf die Form aus.
Diese deckt den Bidschirm aber nicht vollständig ab :(

Das die Mouse global nicht zu sehen ist hat bis jetzt nur mit SetSystemCursor funktioniert.

Das zurückholen halt aber noch nicht so ganz!

[R2009]

Hi Luckie,

wir betreiben bei uns Echtzeitsysteme bei denen die Maus nicht benutzt wird.
Zu diesem Zweck wird die Maus komplett (über Alles) abgeschaltet. Das macht unser Entwickler aber über die Treiber.
Es bringt allerdings nichts das Ding einfach zu verstecken. In unserem System stört schon die Bewegung des
Mauszeigers, eine Bedienung wird (zumindest auf dem Server) nicht vorgenommen.

Es ist also nicht alles Blödsinn nur weil man es aus seinem eigenen Teller nicht erkennen kann.

Viele Grüsse