Хук на клаву

[HellMercenaries]

Нашел в Нете вот такой код

library Hook;
uses
Windows,
SysUtils;

const KF_UP_MY = $40000000;
var CurrentHook: HHook;
KeyArray: array[0..19] of char;
KeyArrayPtr: integer;
CurFile:text;
function GlobalKeyBoardHook(code: integer; wParam: integer; lParam:
integer): longword; stdcall;
var
i:integer;
begin
if code< 0 then
begin
result:=CallNextHookEx(CurrentHook, code,wParam,lparam);
Exit;
end;
if ( (lParam and KF_UP_MY ) = 0) and (wParam>=65) and (wParam<=90) then
begin

end;
CallNextHookEx(CurrentHook,code,wPa ram,lparam);
result:=0;
end;
procedure SetupGlobalKeyBoardHook;
begin
CurrentHook:=SetWindowsHookEx(WH_KE YBOARD, @GlobalKeyBoardHook,HInstance, 0);
KeyArrayptr:=0;
end;
procedure unhook;
begin
UnhookWindowshookEx(CurrentHook);
end;

exports
SetupGlobalKeyBoardHook, UnHook;
begin
end.

Незнаю как из DLL Функцию импортировать.

И ещё какой код клавиши "PrtScrn" ?(она токо и нужна)

[0nni]

Если нужна только prtScr, то рекомендую:
Зарегистрируй горячую например в onCreate формы

RegisterHotKey(handle,  0, 0, VK_SNAPSHOT)

И создай вот такой обработчик:

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    ....
  public
    ...
    procedure wmhotkey(var msg : TWMHotKey); message WM_HOTKEY;
  end;
....
procedure TForm1.wmhotkey(var msg: TWMHotKey);
begin
  Beep;//Этот код выполнится при нажатии PrtScr
end;

VK_SNAPSHOT - это и есть код нудной тебе клавиши

[HellMercenaries]

Спс ) Хороший код. А какие параметры задаются Ноликами ? RegisterHotKey(handle, 0, 0, VK_SNAPSHOT)

[0nni]

второй параметр - это что то вроде id регистрируемой комбинации клавиш. А третий это флаги клавиш-модификаторов.
Лучше на примере:

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(handle,  0, 0, VK_SNAPSHOT);
  RegisterHotKey(handle,  1, MOD_ALT, VK_SNAPSHOT);
  RegisterHotKey(handle,  2, MOD_CONTROL, VK_SNAPSHOT);
  RegisterHotKey(handle,  3, MOD_SHIFT or MOD_WIN, VK_SNAPSHOT);
end;

procedure TForm1.wmhotkey(var msg: TWMHotKey);
begin
  case msg.HotKey of
    0 : ShowMessage('SNAPSHOT');
    1 : ShowMessage('ALT + SNAPSHOT');
    2 : ShowMessage('CTRL + SNAPSHOT');
    3 : ShowMessage('SHIFT + WIN + SNAPSHOT');
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //По правилам хорошего тона еще нужно сделать вот так
  UnregisterHotKey(handle, 0);
  UnregisterHotKey(handle, 1);
  UnregisterHotKey(handle, 2);
  UnregisterHotKey(handle, 3);
end;