передача параметров DLL

[HellMercenariess]

Для того чтобы не искать hWnd своего окна разными неточными способами вроде:

  SendMessage(FindWindow('TForm1',nil)

(зачем искать то, что основное окно точно знает?)

решил поробовать передавать его сразу из программы при активации хука, программа:

   SwitchHook(True,application.Handle);
  SwitchHook(False,application.Handle);

dll

procedure SwitchHook(State: Boolean; wnd:hwnd  ) export; stdcall;
 hApp:=wnd;

При попытке закрыть прогу вылетает ошибка 217.

Что здесь неправильно?

[Аватар]

А может Form1.Handle вместо application.Handle?

[northener]

А в программе процедура описана точно так же? stdcall не упущен?

[HellMercenariess]

Сообщение от northener

А в программе процедура описана точно так же? stdcall не упущен?

вроде бы нет:

 procedure SwitchHook(state: Boolean; wnd:hwnd) stdcall; external 'KeyHook.dll';

вот только что немного повырезал ненужные процедуры, там почти все было закомментировано, остались только 2 самые необходимые без ошибки запустил-остановил несколько раз.