Scroll-Lock-Taste

[fkerber]

Hi!

Wie wär das:

Zitat:

Easy Delphi Helper 2000 - EDH online
Rollen LED
Hits: 497
Modul für den EDH: modul10.edu Download
Eingesendet von: Delphi-Treff/EDH-Team Mail Homepage



Rollen-LED aktivieren

Folgende Procedure aktiviert das Rollen-LED der Tastatur. Diese Procedure niemlas in einen Timer mit kurzen Intervallen oder in eine Schleife schreiben. Davon kann die Tastatur kaputt gehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  KeyboardState: TKeyboardState;
begin
  GetKeyboardState(KeyboardState);
  KeyboardState[VK_SCROLL]:=1;
  SetKeyboardState(KeyboardState);
end;

KeyboardState[VK_SCROLL]:=1; aktiviert das LED. Würde der Parameter auf 0 gesetzt, wird das Lämpchen wieder deaktiviert. Über diese Eigenschaft kann man auch herausfinden, ob die Rollen Taste aktiviert ist oder nicht:

Delphi-Quellcode:

if KeyboardState[VK_SCROLL]=1 then
  Showmessage('Rollen ist aktiviert')
else
  Showmessage('Rollen ist deaktiviert');

Ciao fkerber