Problemchen beim NUMLOCK Taste überprüfen und einschalten

[juergen]

Hallo zusammen,
ich habe folgenden Code:

Delphi-Quellcode:

//...
if GetKeyState(VK_NUMLOCK) = 0 then
 MessageBox(application.Handle,
  'Achtung, die Nummernblock-Taste war ausgeschaltet...! ' + #13#10 +
  'Sie wurde jetzt automatisch eingeschaltet! ;-)','Tastatureinstellung wurde angepaßt!' ,MB_OK   or MB_ICONWarning);
if GetKeyState(VK_NUMLOCK) = 0 then
 keybd_event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 1); 
//...

Funktionieren tut das ganze auch, nur wenn die NUMLOCK-Taste durch diesen Code eingeschaltet wurde, muss man händisch ZWEIMAL die Taste betätigen, bevor dieses wieder ausgeschaltet wird!

Weiß jemand warum das so ist?

[Ferber]

Da gibts schon was von Luckie Numlock

[juergen]

Hallo Ferber,
Super! Danke für den Link! Was Luckie da geschrieben hat ist genau so wie ich es gerne hätte.
Einen schönen Sonntag noch!
Gruß Jürgen