unit HookData;

interface
uses Windows, Messages;

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_Mapping999';
  //Сообщение для уведовления окна-шпиона
  WM_SPY_NOTIFY = WM_USER + 1;

implementation

end.
