VPF::Shell Hook - Форум программистов

<Spawn>

Дата 10.6.2003, 12:03 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Почему при установке Хука WH_SHELL, он срабатывает только при первом запущеном приложении(причем раз 15)? А потом ни какой реакции.

Код

library HookNewProcess;

uses
  SysUtils,
  Windows,
  Dialogs,
  Forms,
  Messages;


var
 HookHandle:THandle;

{$R *.res}

function ShellProc(code:integer;wParam:word;lParam:longint):longint;stdcall;
begin
 if code < 0 then
 begin
   Result:=CallNextHookEx(HookHandle,Code,wParam,lParam);
   Exit;
 end;
 if Code=HSHELL_WINDOWCREATED then
  ShowMessage('New Process');
 CallNextHookEx(HookHandle,Code,wParam,lParam);
 Result:= 0;
end;

procedure SetHook; export; stdcall;
begin
 HookHandle := SetWindowsHookEx(WH_SHELL, @ShellProc, HInstance, 0);
end;

procedure FreeHook;export;stdcall;
begin
 UnhookWindowsHookEx(HookHandle);
end;

exports
   SetHook,
   FreeHook;
begin

end.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Song

Дата 10.6.2003, 13:57 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

1) У тебя рекурсия в хуке.
2) результат от call-back ф-ии хука не возвращается в случае HSHELL_WINDOWCREATED

Вообще странно, что он вообще работает.

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »