Scroll Lock

Witam,

znalazłem w FAQ delphi kod na właczanie np. Scroll Lock'a i se go przetłumaczyłem na C++ ale jest jeden myk :-8 gdy klikam na Buttona nie włącza sie Scroll Lock.... Oto Kod:

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
  TKeyboardState Stat;
  GetKeyboardState(Stat);
  Stat[VK_SCROLL] = 1;
  SetKeyboardState(Stat);
}

PS ON=1, OFF=2

Prosze o szybką odpowiedź

pozdrawiam
McBury

Ja zrobiłem to w BCB za pomocą funkcji keybd_event() :
//wciśnięcie klawisza
keybd_event(VK_SCROLL,
0x45,
KEYEVENTF_EXTENDEDKEY | 0,
0);
//Puszczenie klawisza
keybd_event(VK_SCROLL,
0x45,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
0);
//---------------------------------------------------------------------
Możesz tak symulować wciskanie dowolnych klawiszy wystarczy zmienić pierwszy parametr funkcji :)

wielkie dzięki :)