检查功能键状态
在很多软件中都有功能键的状态显示。如小键盘数字锁定,大小写锁定等等,可以调用函数 GetKeyState() 取得功能键状态信息。
function IsTheKeyOn(i:integer) : Boolean;
begin
Result := 0 <> (GetKeyState(i) and $01);
end;
调用自定义函数 IsTheKeyOn() 的例程如下:
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
//检查NumLock
if IsTheKeyOn(vk_numlock) then
showmessage('NumLock ON')
else
showmessage('NumLock OFF');
//检查CapsLock
if IsTheKeyOn(vk_capital) then
showmessage('CapsLock ON')
else
showmessage('CapsLock OFF');
//检查ScrollLock
if IsTheKeyOn(vk_scroll) then
showmessage('ScrollLock ON')
else
showmessage('ScrollLock OFF');
end;