Простой hook... помогите!

← →
Серьезный Сэм (2005-01-04 19:58) [0]

Мне очень надо сделать так чтобы определенная процедура выполнялась при нажатии заданной клавиши даже если моя прога свернута.

Я пробовал

procedure a;
begin
showmessage("");
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
setWindowsHook(WH_CALLWNDPROC,pointer(@a));
end;

Не выходит, ошибку выдает. Помогите!!! спасибо...

← →
Серьезный Сэм (2005-01-04 20:19) [1]

Немного порылся... пусть

function a(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;

но все равно же не работает!

Вполне возможно, что Ваша задача может быть решена при помощи функции RegisterHotKey (пример см. FAQ на этом сайте http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621066&n=15)
Если же нет, то, во-первых тип хука не WH_CALLWNDPROC, а WH_KEYBOARD, во-вторых глобальных хук должен быть реализован в DLL. Подробнее про хуки можно прочитать здесь: http://www.delphimaster.ru/articles/hooks/index.html

Удачи.

Простой hook... помогите! Найти похожие ветки