各位大大,这个问题是参考了站长大人的文章,但是我愚昧,仍然不能透彻的理解,请您指点迷津 class="code"> void NumLockOn() //开灯 { PBYTE lpKeyState; GetKeyboardState(lpKeyState); lpKeyState[VK_NUMLOCK] = 0x01; SetKeyboardState(lpKeyState); } void NumLockOff() //关灯 { PBYTE lpKeyState; GetKeyboardState(lpKeyState); lpKeyState[VK_NUMLOCK] = 0x00; SetKeyboardState(lpKeyState); } bool IsNumLockOn() //判断灯的状态 { PBYTE lpKeyState; GetKeyboardState(lpKeyState); if(lpKeyState[VK_NUMLOCK] || 1) return true; return false; } void __fastcall TForm1::Button1Click(TObject *Sender) { if(IsNumLockOn()) NumLockOff; else NumLockOn; } 抱歉了,麻烦各位大大指点一下,我的BCB6 Win2000下不能实现开灯关灯的效果< >,牢您费心了< >

===============
人生在勤,不索何获? 
===============

------
人生在勤，不索何获？

void __fastcall TForm1::Button2Click(TObject *Sender) { // 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); }

非常感谢cwh大大提供的code,经过实验,能顺利的解决NumLock灯的开关!< > 但是我很想知道的是为什么这样写(我很笨,看了半天,仍然没有理解到,对不起)< > 更想知道我原来模仿站长大大的那段code错在那里,不知道那位大大能在百忙中抽出一点时间来指点我,让我不仅知其然还知其所以然,拜谢各位先! < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

哎,等了许久也没有人回答(也许大大们过节了,很忙吧！或者我的问题太过弱智),就只有先结案吧,哎.... 同时非常感谢 > < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

溜達到BCB版來了、嘿嘿。向bigdogchina兄問個好先:P這個問題我也來說兩句吧、不過我基本上不懂BCB、所以如有不當之處、還望指正~ >>>> 注意一下紅色部分、回過來看 >

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30705 參考再試看看