From f2cce78db24a0f0a53b8ca41ff112968a5f2d86b Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Fri, 19 Dec 2014 20:02:47 +0000 Subject: 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 --- plugins/Actman30/hooks/hooks.pas | 67 ---------------------------------------- 1 file changed, 67 deletions(-) delete mode 100644 plugins/Actman30/hooks/hooks.pas (limited to 'plugins/Actman30/hooks/hooks.pas') 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. -- cgit v1.2.3