NUMLOCK einschalten
Hi Leute,
Wie kann ich eigendlich den Zustand der NUMLOCK-Taste umschalten? Also sicherstellen daß NUMLOCK immer An ist.
Delphi-Quellcode:
Statt der ShowMessage-Meldung sollte dann sowas rein wie NUMLOCK:=1
...
var KBstate: TKeyboardState; begin GetKeyboardState(KBstate); if KBstate[VK_NUMLOCK]=0 then ShowMessage('bitte NUMLOCK einschalten'); ... end; Hat jemand 'ne Idee für mich? |
|
Delphi-Quellcode:
procedure SetNumLock(Active: Boolean);
var State: SHORT; Scan: UINT; begin Scan := MapVirtualKey(VK_NUMLOCK, 0); State := GetKeyState(VK_NUMLOCK); // Prüfen ob Status nicht schon korrekt ist if Active xor (State and $0001 = $0001) then begin // User hat den Finger drauf :o) ( also erstmal wieder loslassen ) if State < 0 then keybd_event(VK_NUMLOCK, Scan, KEYEVENTF_KEYUP, 0); // Taste drücken keybd_event(VK_NUMLOCK, Scan, 0, 0); // User hat nicht den Finger drauf :o) ( also loslassen ) if State >= 0 then keybd_event(VK_NUMLOCK, Scan, KEYEVENTF_KEYUP, 0); end; end; procedure TForm1.Button1Click(Sender: TObject); begin SetNumLock(True); end; procedure TForm1.Button2Click(Sender: TObject); begin SetNumLock(False); end; |
Danke für Eure schnellen Antworten, wo holt Ihr bloß so schnell die Links oder Codes her? Respekt.
Na dann mach ich mich mal wieder ran ans Gerät. Gruß Lantis. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz