summaryrefslogtreecommitdiff
path: root/plugins/Actman30/hooks/hooks.pas
diff options
context:
space:
mode:
authorVadim Dashevskiy <watcherhd@gmail.com>2014-12-19 20:02:47 +0000
committerVadim Dashevskiy <watcherhd@gmail.com>2014-12-19 20:02:47 +0000
commitf2cce78db24a0f0a53b8ca41ff112968a5f2d86b (patch)
tree5dce24a102dc4117ab993e201811948927842e47 /plugins/Actman30/hooks/hooks.pas
parenta1ff366b1634ed741bdc764489f9e715f90900f5 (diff)
Actman 2.0 is moved to deprecated, Actman 3.0 is a new default Actman (with database settings converter from older version)
git-svn-id: http://svn.miranda-ng.org/main/trunk@11533 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Actman30/hooks/hooks.pas')
-rw-r--r--plugins/Actman30/hooks/hooks.pas67
1 files changed, 0 insertions, 67 deletions
diff --git a/plugins/Actman30/hooks/hooks.pas b/plugins/Actman30/hooks/hooks.pas
deleted file mode 100644
index 0bfa508afe..0000000000
--- a/plugins/Actman30/hooks/hooks.pas
+++ /dev/null
@@ -1,67 +0,0 @@
-unit hooks;
-
-interface
-
-implementation
-
-uses
- windows, commctrl, messages,
- mirutils, common, dbsettings, m_api, wrapper,
- global, mApiCardM;
-
-{$R hooks.res}
-
-{$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.