15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как узнать состояние клавиши CAPS LOCK.

Компилятор: Delphi

function IsCapsLockOn : Boolean;
begin
  Result := 0 <> (GetKeyState(VK_CAPITAL) and $01);
end;