DELPHI FAQ: Как узнать состояние клавиши CAPS LOCK?
Как узнать состояние клавиши CAPS LOCK?
Previous
Home
Next
function
IsCapsLockOn : Boolean;
begin
Result :=
0
<> (GetKeyState(VK_CAPITAL)
and
$01
);
end
;
Взято с Исходников.ru
http://www.sources.ru
DELPHI FAQ