Added my Miranda API pascal version

Changed ShlExt to my API compilation (32 bit FPC now only)

git-svn-id: http://svn.miranda-ng.org/main/trunk@679 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 28 insertions, 0 deletions

diff --git a/plugins/Pascal_Headers/reserve/m_fuse.inc b/plugins/Pascal_Headers/reserve/m_fuse.inc
new file mode 100644
index 0000000000..82b002b5db
--- /dev/null
+++ b/plugins/Pascal_Headers/reserve/m_fuse.inc
@@ -0,0 +1,28 @@
+{$IFNDEF M_FUSE}

+{$DEFINE M_FUSE}

+

+const

+  FUSE_INIT   = 0; // core started, Param=**FUSE_LINK

+  FUSE_DEINIT = 1; // core stopped

+  FUSE_DEFMOD = 3; // LoadDefaultModules() return code, Param=*int

+  FUSE_DEATH  = 4; // DestroyingModularEngine() just got called

+

+type

+  PFUSE_LINK = ^TFUSE_LINK;

+  TFUSE_LINK = record

+    cbSize : longint;

+    CreateHookableEvent  : function (para1:PAnsiChar):THANDLE;cdecl;

+    DestroyHookableEvent : function (para1:THANDLE):longint;cdecl;

+    NotifyEventHooks : function (para1:THANDLE; para2:WPARAM; para3:LPARAM):longint;cdecl;

+    HookEvent        : function (para1:PAnsiChar; para2:TMIRANDAHOOK):THANDLE;cdecl;

+    HookEventMessage : function (para1:PAnsiChar; para2:HWND; para3:dword):THANDLE;cdecl;

+    UnhookEvent      : function (para1:THANDLE):longint;cdecl;

+    CreateServiceFunction : function (para1:PAnsiChar; para2:TMIRANDASERVICE):THANDLE;cdecl;

+    CreateTransientServiceFunction : function (para1:PAnsiChar; para2:TMIRANDASERVICE):THANDLE;cdecl;

+    DestroyServiceFunction : function (para1:THANDLE):longint;cdecl;

+    CallService     : function (para1:PAnsiChar; para2:WPARAM; para3:LPARAM):longint;cdecl;

+    ServiceExists   : function (para1:PAnsiChar):longint;cdecl; {v0.1.0.1+ }

+    CallServiceSync : function (para1:PAnsiChar; para2:WPARAM; para3:LPARAM):longint;cdecl; {v0.1.2.2+ }

+  end;

+

+{$ENDIF}