Problem mit Timer(GetKeyordstate)

[Privateer3000]

Hallo Leutz,
folgende Prozedur soll einen Timer die
Scroll-Led blinken lassen:

Delphi-Quellcode:

procedure TAuszahlbuch.ledscrollTimer(Sender: TObject);
begin
if keys[VK_SCROLL] = 0 then
begin GetKeyboardState(keys); keys[VK_SCROLL] := 1; SetKeyboardState(keys); end;
if keys[VK_SCROLL]  = 1 then
begin GetKeyboardState(keys); keys[VK_SCROLL] :=0; SetKeyboardState(keys); end;
end;

Sie blinkt aber nicht, habe auch keinen Error.
Timer wird vorher auf enabled true gesetzt, Intervall steht auf 3000.
Bei menen Versuchen ergab unter WinMe kommt ein kurzel aufleuchten
unter XP passiert garnix.
Bei 3 Sekunden sollte doch nun wirklich was zu sehen sein, oder
mache ich was grundsätzliches falsch?

Greetz
Privateer3000

[shmia]

Aus der OH:

Zitat:

Remarks
Because the SetKeyboardState function alters the input state of the calling thread and not the global input state of the system, an application cannot use SetKeyboardState to set the NUM LOCK, CAPS LOCK, or SCROLL LOCK indicator lights on the keyboard.

[Privateer3000]

Ja Danke,
aber das hilft mir offen gesagt garnicht weiter

[dajuhsa]

die led's sind auch eigentlich nicht dazu gedacht, ständig aus und an zu gehen aber guck mal hier