From 864081102a5f252415f41950b3039a896b4ae9c5 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Mon, 8 Oct 2012 18:43:29 +0000
Subject: Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Actman/hooks/i_hook.inc | 154 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 154 insertions(+)
 create mode 100644 plugins/Actman/hooks/i_hook.inc

(limited to 'plugins/Actman/hooks/i_hook.inc')

diff --git a/plugins/Actman/hooks/i_hook.inc b/plugins/Actman/hooks/i_hook.inc
new file mode 100644
index 0000000000..8b7b487d98
--- /dev/null
+++ b/plugins/Actman/hooks/i_hook.inc
@@ -0,0 +1,154 @@
+{}
+
+const
+  HWND_MESSAGE = HWND(-3);
+const
+  ACF_ASSIGNED = $80000000;  // hook assigned
+  ACF_DISABLED = $10000000;  // hook disabled
+const
+  WM_RESETHOOKS = WM_USER+1312;
+  WM_FIRSTHOOK  = WM_USER+1313;
+  WM_LASTHOOK   = WM_FIRSTHOOK+1000;
+
+type
+  pHookRec = ^tHookRec;
+  tHookRec = record
+    flags  :dword;
+    name   :PAnsiChar; // name for hook
+    handle :THANDLE;   // handle of hook
+    descr  :PWideChar; // name for list
+    action :dword;     // assigned action
+    message:uint;      // window message for hook
+  end;
+  pHookList = ^tHookList;
+  tHookList  = array [0..1023] of tHookRec;
+
+var
+  HookList:pHookList = nil;
+  MaxHooks:integer = 0;
+  MessageWindow:HWND = 0;
+
+function GetNextMessage:uint;
+var
+  i:uint;
+  j:integer;
+begin
+  result:=0;
+  for i:=WM_FIRSTHOOK to WM_LASTHOOK do
+  begin
+    for j:=0 to MaxHooks-1 do
+    begin
+      with HookList^[j] do
+      begin
+        if ((flags and ACF_ASSIGNED)<>0) and (i=message) then
+        begin
+          inc(result);
+          break;
+        end;
+      end;
+    end;
+    if result=0 then
+    begin
+      result:=i;
+      break;
+    end
+    else
+      result:=0;
+  end;
+end;
+
+procedure SetAllHooks;
+var
+  i:integer;
+  msg:cardinal;
+begin
+  msg:=WM_FIRSTHOOK;
+  for i:=0 to MaxHooks-1 do
+  begin
+    with HookList[i] do
+    begin
+      message:=msg;
+      if (flags and ACF_ASSIGNED)<>0 then
+      begin
+        if (flags and ACF_DISABLED)<>0 then
+        begin
+          if handle<>0 then
+          begin
+            UnhookEvent(handle);
+            handle:=0;
+          end;
+        end
+        else
+        begin
+          if handle<>0 then
+            UnhookEvent(handle);
+          handle:=HookEventMessage(name,MessageWindow,message);
+        end;
+      end;
+    end;
+    inc(msg);
+  end;
+end;
+
+function GetHookByMessage(msg:uint):pHookRec;
+var
+  i:integer;
+begin
+  result:=nil;
+  for i:=0 to MaxHooks-1 do
+  begin
+    with HookList[i] do
+    begin
+      if ((flags and ACF_ASSIGNED)<>0) and (msg=message) then
+      begin
+        result:=@HookList[i];
+        break;
+      end;
+    end;
+  end;
+end;
+
+function HookWndProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
+var
+  p:pHookRec;
+  ap:tAct_Param;
+begin
+  result:=0;
+  case hMessage of
+    WM_FIRSTHOOK..WM_LASTHOOK: begin
+      p:=GetHookByMessage(hMessage);
+      if p<>nil then
+      begin
+        ap.flags :=ACTP_WAIT;
+        ap.Id    :=p^.action;
+        ap.wParam:=wParam;
+        ap.lParam:=lParam;
+        result:=CallService(MS_ACT_RUNPARAMS,0,TLPARAM(@ap));
+      end;
+    end;
+  else
+    result:=DefWindowProc(Dialog,hMessage,wParam,lParam);
+  end;
+end;
+
+procedure ClearHooks;
+var
+  i:integer;
+begin
+  for i:=0 to MaxHooks-1 do
+  begin
+    with HookList[i] do
+    begin
+      if (flags and ACF_ASSIGNED)<>0 then
+      begin
+        mFreeMem(descr);
+        mFreeMem(name);
+        if handle<>0 then
+          UnhookEvent(handle);
+      end;
+    end;
+  end;
+  FreeMem(HookList);
+  MaxHooks:=0;
+end;
+
-- 
cgit v1.2.3