NUMLOCK einschalten

[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;