NUMLOCK einschalten

[Lantis]

Hi Leute,
Wie kann ich eigendlich den Zustand der NUMLOCK-Taste umschalten?
Also sicherstellen daß NUMLOCK immer An ist.

Delphi-Quellcode:

...
var
  KBstate: TKeyboardState;
begin
  GetKeyboardState(KBstate);
  if KBstate[VK_NUMLOCK]=0 then ShowMessage('bitte NUMLOCK einschalten');
 ...
end;

Statt der ShowMessage-Meldung sollte dann sowas rein wie NUMLOCK:=1
Hat jemand 'ne Idee für mich?

[Duffy]

Hallo Lantis,
Caps/Num/Scroll Lock ein- und ausschalten
bye

[Luckie]

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;

[Lantis]

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.