Tasten manuell aktivieren

[XeRo]

Hallo...

Ich würde gerne die Num-Taste, die Rollen-Taste und die Feststelltaste mit Delphi aktivieren können.
Und zwar so, dass die Lämpchen auf der Tastatur dementsprechend aufleuchten...

Ich will eine Procedure schreiben, die mir diese Lämpchen in einem Art "Muster" aufleuchten lässt...


Kann mir jemand helfen?!

[gekmihesg]

das ginge dann ungefähr so:

Delphi-Quellcode:

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

...

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

VK_NUMLOCK: NumTaste
VK_CAPITAL: Shift
VK_SCROLL: Rollen

ich hab sowas auch mal gemacht. war lustig die lämpchen ham immer geblinkt aber ich glaub unter NT/2000/XP ging des nicht wenn ich mich recht erinnere.

[XeRo]

Du hattest recht...unter XP funktionierts nicht, nur auf Win98.
Naja...vielen Dank trotzdem

Wenn noch jemand eine andere Art kennt, die auch unter XP funktioniert, dann einfach posten.

[toms]

Gesucht ... und hier gefunden.

[XeRo]

Danke erst mal....
werds jetzt mal ausprobieren und meld mich dann moregen mit den ergebnissen...

[XeRo]

Super....Dank Tom's Link gehts jetzt auch unter XP

@alle: vielen Dank für euer Bemühen!!!

[Luckie]

Sorry, was nutzt jemanden der das geliche Problem hat wie du die Exe? Der Source wäre wesentlich interessanter für ihn. Desweiteren wäre es wünsches wert, wenn beim Beenden des Programmes, der Ausgangszustand wieder hergestellt würde.

[XeRo]

Die Source gibts ja eh

Zitat von toms:

hier

...

Und das mit dem ausgasgszustand hab ich mir auch schon gedacht...
...das Prog war nur gedacht, dass man sieht wies funktioniert....

[Luckie]

Dann pack doch bitte den Source gleich dabei, dann muss man sich nicht erst alles zusammensuchen. Und vorstellen, wie die Lämpchen blinken, kann sich wohl jeder, dazu braucht man kein Programm - zu mindest ich nicht.

[XeRo]

Hab die EXE jetzt rausgenommen....

Wer lernen will dem schadet es nicht sich selbst ein paar Gedanken dazu zu machen 8)