Num-Lock steuern

[thomasdrewermann]

Mit dieser Procedure lässt sich der Num-Lock ein bzw. ausschalten:

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;

Kleiner Nachtrag:
siehe Caps/Num/Scroll Lock ein- und ausschalten


[Edit=Sakura]Über Einschübe läßt sich viel diskutieren, aber ein paar tun doch jedem Code ganz gut ;-), MfG.[/Edit]
[Edit=thomasdrewermann]Nachtrag ergänzt.[/Edit]