Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 506

•  TDictionary Custom Sort  6 526

•  Fast Watermark Sources  6 315

•  3D Designer  9 258

•  Sik Screen Capture  6 649

•  Patch Maker  7 023

•  Айболит (remote control)  7 033

•  ListBox Drag & Drop  5 903

•  Доска для игры Реверси  97 250

•  Графические эффекты  7 237

•  Рисование по маске  6 537

•  Перетаскивание изображений  5 404

•  Canvas Drawing  5 773

•  Рисование Луны  5 483

•  Поворот изображения  5 008

•  Рисование стержней  3 564

•  Paint on Shape  2 822

•  Генератор кроссвордов  3 701

•  Головоломка Paletto  2 982

•  Теорема Монжа об окружностях  3 786

•  Пазл Numbrix  2 498

•  Заборы и коммивояжеры  3 177

•  Игра HIP  2 144

•  Игра Go (Го)  2 082

•  Симулятор лифта  2 457

•  Программа укладки плитки  2 123

•  Генератор лабиринта  2 600

•  Проверка числового ввода  2 274

•  HEX View  2 605

•  Физический маятник  2 215

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Включение и выключение клавиатуры



А кофе на клавиатуру тоже вирус пролил?


// используемые переменные
var
  Dummy: integer = 0;
  OldKbHook: HHook = 0;

implementation

function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
  if code < 0 then
    Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
  else
    Result := 1;
end;

// включение клавы

procedure TForm1.KeyBoardOn(Sender: TObject);
begin
  if OldKbHook <> 0 then
  begin
    UnHookWindowshookEx(OldKbHook);
    OldKbHook := 0;
  end;
  SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;

// выключение клавы

procedure TForm1.KeyBoardOff(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
  OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end;

Некоторые замечания по поводу этих процедур:

  • Если программу упаковать UPX-ом - клава не будет отключаться (причин не знаю).
  • В ДОС-окне клава будет работать (FAR, VC и т.п.) :(
  • Состояния клавиш NumLock,CapsLock,ScrollLock не отслеживаются и могут быть изменены.
  • Возможно EnableHardwareKeyboard более эффективен и прост, но я тоже, к сожалению, не знаю, как им пользоваться.
  • Если вместо WH_KEYBOARD поставить WH_MOUSE, то можно выключать таким образом мышь :-)




Похожие по теме исходники

Драйвер клавиатуры под DOS




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте