🚀 go-pugleaf

From MS pages:

   void SetNumLock(bool State)
   {
      BYTE keyState[256];

      GetKeyboardState((LPBYTE)&keyState);

      if( (State && !(keyState[VK_NUMLOCK] & 1)) ||
          (!State && (keyState[VK_NUMLOCK] & 1)) )
      {
      // Simulate a key press
         keybd_event(VK_NUMLOCK, 0x45,
                     KEYEVENTF_EXTENDEDKEY | 0,
                     0);

      // Simulate a key release
         keybd_event(VK_NUMLOCK, 0x45,
                     KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
                     0);
      }
   }


void __fastcall TForm1::Button1Click(TObject *Sender)
{
      SetNumLock(true);
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::Button2Click(TObject *Sender)
{
      SetNumLock(false);
}

Rodolfo

"Phuoc Can HUA" <home+a+t+huaonline.com> wrote in message
news:3e7e4050@newsgroups.borland.com...
> How do I read and change the the state of the NumLock button?
> How can I find out whether the Shift key is pressed and hold (not just in
a
> KeyPress event, but anywhere in program)?