1 files changed, 28 insertions, 0 deletions
diff --git a/include/delphi/reserve/m_fuse.inc b/include/delphi/reserve/m_fuse.inc
new file mode 100644
index 0000000000..82b002b5db
--- /dev/null
+++ b/include/delphi/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}