Как отловить нажатия клавиш для всех процессов!?

← →
Вуук (2006-08-21 01:27) [0]

Подскажиту пожалуйста!

← →
Мичман Панин (2006-08-21 01:46) [1]

Даже в военное время не все процессы требуют нажатия клавиш.

← →
Vendict © (2006-08-21 12:03) [2]

Вуук (21.08.06 1:27)
может hook ? всмысле ловушкой ?

тогда так.

создаешь файлик "keyboard.dpr" такого содержания:

library keyboard; uses Windows, Messages; var SysHook : HHook = 0; Wnd : Hwnd = 0; function SysMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall; Var key:array [0..16] of Char; h:HWND; f:TextFile; begin if lParam<>16777217 then //Передать сообщение другим ловушкам в системе // если не сделать этого, система зависнет Result := CallNextHookEx(SysHook, Code, wParam, lParam); //Проверяю сообщение if (code = HC_ACTION) then begin GetKeyNameText(lParam,Key,SizeOf(Key)); // в key находится название клавиши If key="Prnt Scrn" then begin h:=FindWindow("TForm1","Моя форма"); SendMessage(h,$0505,0,0); //а это мы посылаем сообщение форме что была нажата клавиша //форма должна быть класса TForm1 и иметь Caption="Моя форма" end; end; end; // Процедура запуска. procedure RunStopHook(State : Boolean) export; stdcall; begin //Если State = true, то ... if State=true then begin //Запускаем ловушку. SysHook := SetWindowsHookEx(WH_KEYBOARD, @SysMsgProc, HInstance, 0); end else//Иначе begin //Отключить ловушку. UnhookWindowsHookEx(SysHook); SysHook := 0; end; end; exports RunStopHook index 1; end.

и к этому нужно приложение, устанавливающее ловушку и обрабатывающее сообщение:
"main.pas":
unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure Mes(var Mes:TMessage); message MS; procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; procedure RunStopHook(State : Boolean) stdcall; external "keyboard.dll" index 1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin RunStopHook(true); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin RunStopHook(false); end; procedure TForm1.Mes; begin //здесь как-то реагируешь на полученое сообщение End; end.

вроде бы всё...

← →
Vendict © (2006-08-21 12:06) [3]

Vendict © (21.08.06 12:03) [2]
вроде бы всё...

не всё. забыл. там ещё нужно добавить пару строчек перед "type" в "main.pas":
const MS=$0505;

← →
Пусик © (2006-08-21 12:11) [4]

http://delphimaster.net/view/1-1155502154/

← →
Пусик © (2006-08-21 12:19) [5]

PS.
В данном случае хук не обязательно должен использовать DLL.

← →
Vendict © (2006-08-21 12:36) [6]

Пусик © (21.08.06 12:11) [4]
Пусик © (21.08.06 12:19) [5]
Я это писал год назад. просто привел свой код, как делал я.
и по-моему понятнее, чем там.

← →
Пусик © (2006-08-21 12:50) [7]

> Vendict © (21.08.06 12:36) [6]

О чем спич?
Здесь никто ничем не меряется. Приводятся варианты решения.

← →
Rouse_ © (2006-08-21 13:36) [8]

> Пусик © (21.08.06 12:19) [5]
> PS.
> В данном случае хук не обязательно должен использовать DLL.
>

LowLevelHook только в 2000-ом появились, так что если нужно для всех ОС, то только через библиотеку :)

http://www.delphimaster.ru/articles/hooks/index.html

Rouse_ © (21.08.06 13:36) [8]
LowLevelHook только в 2000-ом появились, так что если нужно для всех ОС, то только через библиотеку :)
JournalRecord был и раньше, если мне запоменающее устройство в мозгу не изменяет.

> Как отловить нажатия клавиш для всех процессов!?

Дай угадаю: следующий вопрос будет, как перехватить нажатие Ctrl+Alt+Del?)))

Как отловить нажатия клавиш для всех процессов!? Найти похожие ветки