Работа с железом

Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и усиленно пытается переключиться на другую программу, вы можете круто его обломать:

 

Подробнее: Как отключить... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

Для того, чтобы отличить нажат левый или правый Ctrl, нужно перехватить событие WM_KEYDOWN. В зависимости от состояния 24-ого бита параметра LParam нажата правая или левая клавиша.

Подробнее: Как отличить нажат... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

 

Code:

procedure EmptyKeyQueue;

var

msg: TMsg;

begin

while PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do

   ;

end;

 

begin

EmptyKeyQueue;

end.

 

Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

Code:

if ((Word(GetKeyState(VK_LSHIFT)) and $8000) <> 0) then

begin

end;

 

if ((Word(GetKeyState(VK_RSHIFT)) and $8000) <> 0) then

begin

end;

 

Подробнее: Как отличить нажат... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

 

Code:

private

{©Drkb v.3, ®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

 

Procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;

.....

procedure TForm1.CMDialogKey(var Msg: TWMKey);

begin

//здесь Ваш код

Msg.Result := 0

end;

 

Подробнее: Как перехватить нажатие... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

Нужно ловить сообщение WM_INPUTLANGCHANGEREQUEST

Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

 Проверяйте значение переменной key на равенство VK_RIGHT, VK_LEFT, VK_F1 и т.д. на событии KeyDown формы

Автор: Arx 

Подробнее: Как перехватить нажатия... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

 

· Setup.bat

 

Code:

@echo off

copy HookAgnt.dll %windir%\system

copy kbdhook.exe %windir%\system

start HookAgnt.reg

 

Подробнее: Как отловить нажатия... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

Эта процедура посылает сообщение о нажатии клавиши.

 

Подробнее: Как послать нажатие... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

Для этого можно воспользоваться функцией GetHeapStatus:

Подробнее: Как отловить правый... Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура

 

Code:

SendMessage(Handle,WM_SYSCOMMAND,SC_TASKLIST,0);

 Автор ответа: TwoK

Добавить комментарий
Подробности
Родительская категория: Мышка/клавиатура
Категория: Клавиатура
  1. Как програмно переключить раскладку клавиатуры?
  2. Как програмно переключить состояние клавиш Num Lock, Caps Lock, Scroll Lock?
  3. Как сделать клавишу-акселератор (keyboard shortcut) компонету, у которого нет заголовка
  4. Как скрыть программу от Alt - Tab
  5. Как узнать о нажатии NON-MENU клавиши в момент когда меню показано
  6. Как узнать состояние клавиши CAPS LOCK?
  7. Какая клавиша нажата при загрузке приложения
  8. Коды виртуальных клавиш
  9. Определение нажатия клавиши во время загрузки приложения?
  10. Переключение раскладки клавиатуры для приложения
  11. Перехватить нажатие клавиши на клавиатуре
  12. Получение типа клавиатуры
  13. Программно нажимаем Print Screen
  14. Програмная эмуляция нажатия клавиш
  15. Работа с цифровой клавиатурой при выключенном NumLock
  16. Регистрируем горячие клавиши
  17. Симфония на клавиатуре(статья)
  18. Состояние кнопки insert
  19. Добавление события OnMouseLeave
  20. Имитировать события мыши
  21. Как автоматически помещать курсор мышки в центр контрола получившего фокус?
  22. Как заставить появиться окошко подсказки когда курсор мышки находится над определённым контролом?
  23. Как имитировать нажатие левой кнопки мыши?
  24. Как использовать mouse_event() для эмулирования событий мышки?
  25. Как ограничить движения мышки определённой областью?
  26. Как определить координаты курсора мыши?
  27. Как отследить выход мыши за пределы формы?
  28. Как получить координаты указателя мыши относительно формы в Delphi
  29. Как поменять функции кнопок мышки?
  30. Как послать нажатие кнопки мыши в окно?
  31. Как программно двигать курсор мышки?
  32. Как программно определить количество кнопок мышки
  33. Как прочитать и изменить doubleclick time?
  34. Как узнать есть ли у мыши колесико?
  35. Как узнать, находится ли мышка на форме?
  36. Как узнать, присутствует ли мышка?
  37. Ловить события мышки вне приложения
  38. Отключить реакцию на события мыши
  39. Отслеживать переход мышки на компонент и уход ее
  40. Перемещение контролов мышкой во время выполнения приложения?
  41. Подсветка компонента во время перемещения над ним мыши
  42. Получить Handle и имя класса окна под мышкой
  43. Получить дескриптор текущего курсора
  44. Получить диапазон, прокручиваемый колесиком мышки
  45. Получить заголовок элемента управления под мышкой
  46. Проверить, находится ли курсор на линии
  47. Создание мышиного перехватчика
  48. функции для изменения и получения чуствительности мышки
  49. Функции и процедуры управления мышью
  50. Write/read a string to/from the serial port

BIOS

Различные другие железяки...