Глобальный хук на нажатие клавиши

[Slippy]

Всем привет и с наступающим

Хочу написать небольшую прогу, которая будет глобально отлавливать нажатие клавиши PrintScreen и выполнять определённые действия по этому событию (например, сразу сохранять скрин в указанной папке).

Собственно, погуглив нашёл много примеров создания хуков на клаву. По аналогии с одним из них написал следущее:

library HookDll;

uses SysUtils, Classes, Windows;

var CurrentHook: HHook;

function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword): longword; stdcall;
begin
  if ((lParam and KF_UP) = 0) and (wParam = VK_SNAPSHOT) then SysUtils.Beep;
  GlobalKeyBoardHook := 0;
end;

procedure SetHookHandle(HookHandle: HHook); stdcall;
begin
  CurrentHook := HookHandle;
end;

exports GlobalKeyBoardHook, SetHookHandle;

begin
end.

Соответственно в другом проекте подключаю dll, подзываю функции. Всё вроде бы работает - комп пищит по нажатию PrintScreen. Но несколько раз, даже при быстром нажатии. Мне же нужна реакция на нажатие только 1 раз. Насколько я понимаю, строка:
if ((lParam and KF_UP) = 0)
проверяет, не зажата ли клавиша.
Но что-то не могу понять, как именно она это делает.
Думаю, если вместо этого поставить проверку на отпускание - событие будет как раз отлавливаться 1 раз.

Подскажите, пожалуйста, как это сделать? Ну и, если не сложно, объясните в чём принцип этого выражения. Что-то не доходит.

[asmodey1]

погуглив немного

А теперь взглянуть вниз, в "Похожие темы" - не судьба ?

[Slippy]

Спасибо, смотрел. Там немного не то, что мне нужно.
Но в принципе я уже нашёл описание хуков с подробными комментариями в книге Фленова "Делфи глазами хакера".
Тему можно закрыть