DELPHI/Часто задаваемые вопросы и ответы на них/ОС и железо



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / ОС и железо / Определить состояние CapsLock

Определить состояние CapsLock
Озеро, тонет хакер:
- F1!!! F1!!! ... Тьфу-ты... Нelр!!! Нelр!!!
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetKeyState(VK_CAPITAL) and 1 = 0 then
    Form1.Caption := 'Caps lock не горит'
  else
    Form1.Caption := 'Caps lock горит';
end;
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru