Создание ловушек в Delphi

Материал из DRKB

Создание ловушек в Delphi[править | править код]

Рано или поздно каждый программист сталкивается с таким понятием как ловушки. Чтобы приступить к использованию ловушек необходимо обзавестись windows SDK, который можно так же скачать с сайта Microsoft. В прилагаемом к статье архиве содержатся два проекта: hooks.dpr - это пример приложения работающего с ловушками, а hookdll.dpr - собственно сама DLL.

Что такое ловушки (Hooks)?

Проще говоря, ловушка - это функция, которая является частью DLL или часть Вашего приложения, при помощи которой можно контролировать 'происходящее' внутри окошек операционной системы. Идея состоит в том, чтобы написать функцию, которая будет вызываться каждый раз, когда будет возникать определённое событие - например, когда пользователь нажмёт клавишу или переместит мышку. Ловушки были задуманы Microsoft в первую очередь, чтобы облегчить программистам отладку приложений. Однако существует множество способов использования ловушек - например, чаще всего при помощи ловушек пишутся клавиатурные шпионы.

Итак, существует два типа ловушек - глобальные и локальные. Локальная ловушка отслеживает только те события, которые происходят только в одной программе (или потоке). Глобальная ловушка отслеживает события во всей системе (во всех потоках). Оба типа ловушек устанавливаются одинаково, однако единственно отличие заключается в том, что локальная ловушка вызывается в пределах Вашего приложения, в то время как глобальную ловушку необходимо хранить и вызывать из отдельной DLL.


Процедуры ловушки

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

SetWindowsHookEx()[править | править код]

Функция SetWindowsHookEx необходима для установки ловушки. Давайте посмотрим на аргументы данной функции:

Name Type Description
idHook Integer Число, представляющее тип ловушки - например WH_KEYBOARD
lpfn TFNHookProc Адрес в памяти функции ловушки
hMod Hinst Дескриптор dll в которой находится функция. Если это локальная ловушка, то этот параметр 0.
dwThreadID Cardinal 'id потока', который Ваша программа будет контролировать. Если это глобальная ловушка, то параметр должен быть 0.

SetWindowsHookEx возвращает дескриптор (т.е. идентификатор) текущей ловушки, который можно использовать в функции UnhookWindowsHookEx для последующего удаления ловушки.


hook()[править | править код]

Функция hook это процедура, которая вызывает в случае, если необходимое нам событие происходит. Например, если установлена ловушка типа WH_KEYBOARD, то окно будет передавать в ловушку информацию о том, какая клавиша была нажата. Для Вашей процедуры hook необходимы следующие аргументы:

Name Type Description
Code Integer Указывает на то, что означают следующие два параметра
wParam word Параметр размером в 1 слово (word)
lParam longword Параметр размером в 2 слова

Функция hook возвращает значение типа longword.


CallNextHookEx()[править | править код]

Данная функция предназначена для работы с цепочкой функций ловушек. Когда ловушка установлена на определённое событие, то может возникнуть такая ситуация, когда кто-нибудь тоже захочет установить ловушку на это же событие. Когда Вы устанавливаете ловушку при помощи SetWindowsHookEx, то Ваша процедура ловушки добавляется в начало списка процедур ловушек. Поэтому основная задача функции CallNextHookEx заключается в том, чтобы вызвать следующий в списке обработчик ловушки. Когда Ваша процедура ловушки завершится, то она должна вызовать CallNextHookEx, а затем вернуть заданное значение, в зависимости от типа ловушки.


UnhookWindowsHookEx()[править | править код]

Данная функция просто напросто удаляет Вашу ловушку. Единственный аргумент этой функции - это дескриптор ловушки, возвращаемый функцией SetWindowsHookEx.


Локальная ловушка[править | править код]

Сперва давайте создадим локальную ловушку. Необходимый для неё код содержится в 'local.pas'. При запуске Hooks.exe будет отображена небольшая форма. Для использования локальной ловушки достаточно нажать кнопку Add/Remove Local Hook на этой форме. После установки локальной ловушки, Вы заметите, что при нажатии и отпускании любой клавиши будет раздаваться звуковой сигнал (естевственно, когда hooks.exe будет иметь фокус. Ведь это локальная ловушка).

Самая первая функция в local.pas - SetupLocalHook, которая собственно и создаёт локальную ловушку, указывая на процедуру ловушки KeyboardHook. В данном случае это простой вызов SetWindowsHookEx, и, если возвращённый дескриптор > 0, указывающий на то, что процедура работает, то сохраняет этот дескриптор в CurrentHook и возвращает true, иначе будет возвращено значение false. Далее идёт функция RemoveLocalHook, которая получает в качестве параметра сохранённый дескриптор в CurrentHook и использует его в UnhookWindowsHookEx для удаления ловушки. Последняя идёт процедура hook, которая всего навсего проверяет - была ли отпущена клавиша и если надо, то выдаёт звуковой сигнал.


Глобальная ловушка[править | править код]

Глобальная ловушка выглядит немного сложнее. Для создания глобальной ловушки нам понадобится два проекта - первый для создания исполняемого файла и второй для создания DLL, содержащей процедуру ловушки. Глобальная ловушка, которая представлена в примере, сохраняет в файле log.txt каждые 20 нажатий клавиш. Чтобы использовать глобальную ловушку, достаточно на форме hook.exe нажать кнопку add/remove global hook. Затем, например, в записной книжке (notepad) достаточно набрать какой-нибудь текст, и Вы увидите, что в log.txt этот текст сохранится.

Наша Dll содержит две процедуры. Первая - это процедура hook, которая идентична для той, которую мы рассмотрели для локальной ловушки. Вторая процедура необходима инициализации dlls, и содержит текущий номер клавиши, которая была нажата, а также дескриптор ловушки, которая была создана.

Исполняемый файл сперва должен загрузить процедуры из DLL, а затем использовать SetWindowsHookEx, чтобы создать глобальную ловушку.

В заключение...[править | править код]

Представленный пример объясняет - как перехватывать события клавиатуры. Чтобы узнать, как использовать ловушки других типов, таких как WH_MOUSE, необходимо разобраться с windows SDK.


Приложения:

library HookDll;

uses
  SysUtils,
  Classes,windows;

var CurrentHook: HHook;
    KeyArray: array[0..19] of byte;
    KeyArrayPtr: integer;
    CurFile: file of byte;
{
GlobalKeyboardHook
------------
This is the hook procedure to be loaded from hooks.exe when you
try and create a global hook. It is similar in structure to that defined
in hook.dpr for creating a local hook, but this time it does not beep!
Instead it stores each key pressed in an array of bytes (20 long). Whenever
this array gets full, it writes it to a file, log.txt and starts again.
}
function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword): longword; stdcall;
begin
  if code < 0 then
  begin  //if code is <0 your keyboard hook should always run CallNextHookEx instantly and
     GlobalKeyBoardHook := CallNextHookEx(CurrentHook, code, wParam, lparam); // then return the value from it.
     Exit;
  end;
  // firstly, is the key being pressed, and is it between A and Z
  // note that wParam contains the scan code of the key (which for a-z is the same as the ascii value)
  if ((lParam and KF_UP) = 0) and (wParam >= 65) and (wParam <= 90) then
  begin
    // store the keycode in the list of keys pressed and increase the pointer
    KeyArray[KeyArrayPtr] := wParam;
    KeyArrayPtr := KeyArrayPtr + 1;
    // if 20 keys have been recorded, save them to log.txt and start again
    if KeyArrayPtr > 19 then
    begin
      AssignFile(CurFile, 'log.txt');
      if FileExists('log.txt') = False then
        Rewrite(CurFile)
      else
        Reset(CurFile); // if log.txt exists, add to it, otherwise recreate it
      BlockWrite(CurFile, KeyArray[0], 20);
      CloseFile(CurFile);
      KeyArrayPtr := 0;
    end;
  end;
  CallNextHookEx(CurrentHook, code, wParam, lparam);  // call the next hook proc if there is one
  GlobalKeyBoardHook := 0; // if GlobalKeyBoardHook returns a non-zero value, the window that should get
                           // the keyboard message doesnt get it.
  Exit;
end;

{
SetHookHandle
-------------
This procedure is called by hooks.exe simply to 'inform' the dll of
the handle generated when creating the hook. This is required
if the hook procedure is to call CallNextHookEx. It also resets the
position in the key list to 0.
}
procedure SetHookHandle(HookHandle: HHook); stdcall;
begin
  CurrentHook := HookHandle;
  KeyArrayPtr := 0;
end;

exports 
  GlobalKeyBoardHook index 1,
  SetHookHandle index 2;
begin

end.


unit MainFormUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Local, global,
  StdCtrls;

type
  TMainForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.Button1Click(Sender: TObject);
begin
  if GHookInstalled = True then exit; // if a global hook is installed, exit routine
   // if a local hook not installed, then attempt to install one, else attempt to remove one
   if HookInstalled = False then
     HookInstalled := SetupLocalHook
   else
     HookInstalled := (not RemoveLocalHook);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  HookInstalled := False;
  GHookInstalled := False;
  LibLoaded := False;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  if HookInstalled then RemoveLocalHook;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  if HookInstalled then exit; // if a local hook is installed, exit routine
  // if a local hook not installed, then attempt to install one, else attempt to remove one
  // note that removelocalhook can still be used no matter whether the hook is global or local
  if not GHookInstalled then
    GHookInstalled := SetupGlobalHook
  else
    GHookInstalled := (not RemoveLocalHook);
end;

end.


Author: Chris Cummings (http://wibblovia.topcities.com)
Source: Взято из http://forum.sources.ru
ID: 02217