1 files changed, 39 insertions, 0 deletions
diff --git a/plugins/ExternalAPI/delphi/m_autoreplacer.inc b/plugins/ExternalAPI/delphi/m_autoreplacer.inc
new file mode 100644
index 0000000000..bc1d528463
--- /dev/null
+++ b/plugins/ExternalAPI/delphi/m_autoreplacer.inc
@@ -0,0 +1,39 @@
+{
+  AutoReplacer plugin
+  by Angelo Luiz Tartari
+}
+
+{$IFNDEF M_AUTOREPLACER}
+{$DEFINE M_AUTOREPLACER}
+
+const
+
+{
+  Adds a window handle to AutoReplacer.
+  This handle must belong to any window based on a editbox (editbox, richtext, TMemo, TEdit, TMaskEdit, etc.).
+  After adding a handle, AutoReplacer will automatically work on this window.
+  wParam = 0
+  lParam = (LPARAM)(HWND)hwnd
+  Returns: 0 on success, -1 if hwnd is invalid, 1 on error.
+}
+  MS_AUTOREPLACER_ADDWINHANDLE = 'AutoReplacer/AddWinHandle';
+
+{
+  Removes a window handle from AutoReplacer's list.
+  wParam = 0
+  lParam = (LPARAM)(HWND)hwnd
+  Returns: 0 on success, -1 if hwnd is invalid, 1 if hwnd wasn't found.
+}
+  MS_AUTOREPLACER_REMWINHANDLE = 'AutoReplacer/RemWinHandle';
+
+  function autoreplacer_AddWinHandle(hwnd: HWND): integer;
+  begin
+	Result := CallService(MS_AUTOREPLACER_ADDWINHANDLE, 0, LPARAM(hwnd));
+  end;
+
+  function autoreplacer_RemWinHandle(hwnd: HWND): integer;
+  begin
+	Result := CallService(MS_AUTOREPLACER_REMWINHANDLE, 0, LPARAM(hwnd));
+  end;
+
+{$ENDIF}
+\ No newline at end of file