var
Tkeys:TkeyBoardState;
Begin
GetkeyBoardState(Tkeys);
if Tkeys[Vk_Numlock] = 1 then begin
showmessage(开启);
end else if Tkeys[Vk_Numlock] = 0 then begin
showmessage(关闭);
end;
End;
Tkeys:TkeyBoardState;
Begin
GetkeyBoardState(Tkeys);
if Tkeys[Vk_Numlock] = 1 then begin
showmessage(开启);
end else if Tkeys[Vk_Numlock] = 0 then begin
showmessage(关闭);
end;
End;
x:='大写'
else
x:='小写';