[Delphi] Keyboardleds aansturen

[Bergen]

Ik heb al wat afgezocht bij Google enzo en de search op dit forum heb ook al doorlopen, maar ik kom niet tegen wat ik zoek. Iemand een idee?

[Verwijderd]

Ik heb geen tijd om een voorbeeld te geven, maar zoek is op de win api 'keybd_event'; hiermee kun je het indrukken van een toets simuleren.

[Creepy]

Eerste hit met google:
http://www.torry.net/keysandkeyboard.htm
Scroll daar ff wat naar beneden en zie daar:

KeyLed v.1.0 FWS 4 Kb 31.10.01
By Winsoft Ltd. Delphi component for retrieving and setting keyboard CapsLock, NumLock and ScrollLock status.

Fully functional
Source: Included

En hiero de link naar de source.

Niet wat je bedoelt?

[jelmervos]

Daar wordt deze code gebruikt:

code:

procedure SetKeyState(Key: Integer; TurnOn: Boolean);
var Buffer: TKeyboardState;
begin
  case Win32Platform of
    VER_PLATFORM_WIN32_WINDOWS: // Win95/98/ME
    begin
      GetKeyboardState(Buffer);
      Buffer[Key] := Ord(TurnOn);
      SetKeyboardState(Buffer)
    end;
    VER_PLATFORM_WIN32_NT: // WinNT/2000
    begin
      if GetKeyState(Key) <> TurnOn then
      begin
        keybd_event(Key, $45, KEYEVENTF_EXTENDEDKEY, 0); // simulate key press
        keybd_event(Key, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); // simulate key release
      end;
    end
  end;
end;

[Bergen]

Stoeerrrrrrrrrr thanx verrie muts!

[jelmervos]

Geen probleem, graag gedaan.

[Cheater]

Met wat voor commando moet ik dit nou aansturen?