3 files changed, 4 insertions, 18 deletions
diff --git a/include/delphi/m_clistint.inc b/include/delphi/m_clistint.inc
index 1d21e9d942..64040a535d 100644
--- a/include/delphi/m_clistint.inc
+++ b/include/delphi/m_clistint.inc
@@ -539,9 +539,7 @@ type
     pfnSetContactCheckboxes:procedure(cc:PClcContact; checked:int); cdecl;
   end;
 
-{
 var
-  cli : CLIST_INTERFACE;cvar;external;
-}
+  cli : PCLIST_INTERFACE;
 
 {$ENDIF}
diff --git a/include/delphi/m_clui.inc b/include/delphi/m_clui.inc
index 7d68a382de..a6b5fa2583 100644
--- a/include/delphi/m_clui.inc
+++ b/include/delphi/m_clui.inc
@@ -31,21 +31,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
 const
   {
-    wParam : 0
-    lParam : 0
-    Affects: Returns a window handle for the contact list window, see notes
-    Returns: ""
-    Notes  : This call has a very specific purpose internally Miranda
-             and shouldn't be used gratuitously, in almost all cases
-             there's another call to do whatever it is that you're
-             trying to do.
-  }
-  MS_CLUI_GETHWND:PAnsiChar = 'CLUI/GetHwnd';
-
-  //get ContactTree hwnd
-  MS_CLUI_GETHWNDTREE:PAnsiChar = 'CLUI/GetHwndTree';
-
-  {
     wParam : Handle to a group
     lParam : 1 or 0
     Affect : A new group was created, add it to the list, see notes
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index 1d68b6501e..1cf14f32b0 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -539,4 +539,7 @@ begin
 	result:=PCRYPTO_PROVIDER(CallService(MS_CRYPTO_GET_PROVIDER, 0, LPARAM(pszName)));
 end;
 
+initialization
+   cli:=PCLIST_INTERFACE(CallService(MS_CLIST_RETRIEVE_INTERFACE,0,0));
+
 {$ENDIF}