1 files changed, 73 insertions, 0 deletions
diff --git a/plugins/Actman/hooks/hooks.pas b/plugins/Actman/hooks/hooks.pas
new file mode 100644
index 0000000000..b3309c327a
--- /dev/null
+++ b/plugins/Actman/hooks/hooks.pas
@@ -0,0 +1,73 @@
+unit hooks;
+
+interface
+
+procedure Init;
+procedure DeInit;
+function AddOptionPage(var tmpl:pAnsiChar;var proc:pointer;var name:PAnsiChar):integer;
+
+implementation
+
+uses
+  windows, commctrl, messages,
+  mirutils, common, dbsettings, io, m_api, wrapper,
+  global, mApiCardM;
+
+{$R hooks.res}
+
+{$include m_actman.inc}
+
+{$include i_hook.inc}
+{$include i_hconst.inc}
+{$include i_options.inc}
+{$include i_opt_dlg.inc}
+
+// ------------ base interface functions -------------
+
+procedure Init;
+begin
+
+  MessageWindow:=CreateWindowExW(0,'STATIC',nil,0,1,1,1,1,HWND_MESSAGE,0,hInstance,nil);
+  if MessageWindow<>0 then
+    SetWindowLongPtrW(MessageWindow,GWL_WNDPROC,LONG_PTR(@HookWndProc));
+
+  if LoadHooks=0 then
+  begin
+    MaxHooks:=8;
+    GetMem  (HookList ,MaxHooks*SizeOf(tHookRec));
+    FillChar(HookList^,MaxHooks*SizeOf(tHookRec),0);
+  end
+  else
+    SetAllHooks;
+end;
+
+procedure DeInit;
+begin
+  ClearHooks;
+  if MessageWindow<>0 then
+    DestroyWindow(MessageWindow);
+end;
+
+function AddOptionPage(var tmpl:pAnsiChar;var proc:pointer;var name:PAnsiChar):integer;
+begin
+  result:=0;
+  tmpl:=PAnsiChar(IDD_HOOKS);
+  proc:=@DlgProcOpt;
+  name:='Hooks';
+end;
+
+var
+  amLink:tActionLink;
+
+procedure InitLink;
+begin
+  amLink.Next     :=ActionLink;
+  amLink.Init     :=@Init;
+  amLink.DeInit   :=@DeInit;
+  amLink.AddOption:=@AddOptionPage;
+  ActionLink      :=@amLink;
+end;
+
+initialization
+  InitLink;
+end.