Delphi. Трюки и эффекты

Содержимое файла HookData.pas

type

//Структура (запись), которая хранится в разделяемом файле

//и используется для передачи данных между процессами

THookInfo = record

wnd: HWND; //Окно, за которым ведется наблюдение

hook_handle: HHOOK; //Дескриптор ловушки

spy_wnd: HWND; //Окно, уведомляемое о перехвате сообщения

//Следующие поля заполняются при перехвате сообщения

mess: UINT;

wParam: WPARAM;

lParam: LPARAM;

end;

var

//Указатель на разделяемую область памяти

hook_info: ^THookInfo;

//Дескриптор проекции файла в память

hFile: THandle;

const

//Имя проекции файла

strFileMapName = \'TricksDelphi_WinSpy_Mapping\

//Сообщение для уведомления окна-шпиона

WM_SPY_NOTIFY = WM_USER + 1;