2 files changed, 7 insertions, 17 deletions
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc
index 0be77bbe48..04801f8702 100644
--- a/include/delphi/m_core.inc
+++ b/include/delphi/m_core.inc
@@ -519,6 +519,13 @@ function mir_vsntprintf(buffer:pWideChar;count:size_t;fmt:pWideChar;va:va_list):
 
 
 ///////////////////////////////////////////////////////////////////////////////
+// protocol functions
+
+function ProtoServiceExists(const szModule, szName:PAnsiChar):int; stdcall;
+                 external CoreDLL name 'ProtoServiceExists';
+
+
+///////////////////////////////////////////////////////////////////////////////
 // sha1 functions
 type
   pmir_sha1_byte_t = ^mir_sha1_byte_t;
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index e9bedfd7be..9c3881fe31 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -1,7 +1,5 @@
 {$IFDEF M_API_UNIT}
 
-function ProtoServiceExists(const proto,service: PAnsiChar): int;
-
 function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;
 function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar;
 function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int;
@@ -90,21 +88,6 @@ function Options_OpenPage(ood:POPENOPTIONSDIALOG):HWND;
 
 {$ELSE}
 
-function ProtoServiceExists(const proto,service: PAnsiChar): int;
-var
-  buf:array [0..127] of AnsiChar;
-begin
-  if (proto=nil) or (service=nil) then
-  begin
-    result:=0;
-    exit;
-  end;
-  lStrCpyA(@buf,proto);
-  lStrCatA(@buf,service);
-  result:=ServiceExists(@buf);
-end;
-
-
 function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;
 var
   vers:array [0..3] of integer;