Определить состояние CapsLock 3
function
IsCapsLockOn: Boolean;
begin
Result := 0 <> (GetKeyState(VK_CAPITAL)
and
$01);
end
;
Проект
Delphi World
© Выпуск 2002 - 2004
Автор проекта:
___Nikolay