В интересующей меня программе используется функция xxx из библиотеки test.

library test;

uses Winprocs,sysutils;

Var ourHook:HHook;

function HookProc(Code: integer; wParam: Word; lParam: Longint): integer; stdcall;
begin
if wparam=32 then beep;
HookProc := CallNextHookEx(ourHook, Code, wParam, lParam);
end;

exports xxx;

begin
ourHook:= SetWindowsHookEx(WH_Keyboard, @HookProc, HInstance, 0);
end.

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

| Сообщение посчитали полезным:

GetWindowThreadProcessId(GetActiveWindow, @Pid);
if (Pid <> GetCurrentProcessId) then exit
else showmessage('Our process!');

| Сообщение посчитали полезным:

HoBleen - Спасибо ! Так всё получилось.

| Сообщение посчитали полезным: