3 files changed, 8 insertions, 12 deletions
diff --git a/include/delphi/m_api.pas b/include/delphi/m_api.pas
index f51f6e2ddd..e7a5a82b91 100644
--- a/include/delphi/m_api.pas
+++ b/include/delphi/m_api.pas
@@ -42,7 +42,7 @@ interface
 {$ENDIF}
 
 uses
-  Windows,Messages;//, FreeImage;
+  Windows,CommCtrl,Messages;//, FreeImage;
 
 // often used
 const
diff --git a/include/delphi/m_clist.inc b/include/delphi/m_clist.inc
index 13b5a08cda..ea4ce13e31 100644
--- a/include/delphi/m_clist.inc
+++ b/include/delphi/m_clist.inc
@@ -116,16 +116,11 @@ const
   CLEF_PROTOCOLGLOBAL = 8; // set event globally for protocol, hContact has to
                            // be NULL, lpszProtocol the protocol ID name to be set
 
-  {
-    wParam : 0
-    lParam : 0
-    Affect : Get the image list handle with all the useful icons in it
-    Version: v0.1.1.0+
-  }
-  MS_CLIST_GETICONSIMAGELIST:PAnsiChar = 'CList/GetIconsImageList';
   IMAGE_GROUPOPEN = 11;
   IMAGE_GROUPSHUT = 12;
 
+  function Clist_GetImageList : HIMAGELIST; stdcall; external AppDll;
+
   {
     wParam : TMCONTACT
     lParam : ICON_ID
@@ -133,6 +128,7 @@ const
              ICON_ID is an index to what image has changed
     Version: v0.1.2.1+
   }
+const
   ME_CLIST_CONTACTICONCHANGED:PAnsiChar = 'CList/ContactIconChanged';
 
 //******************************* CLUI only *********************************
diff --git a/include/m_clist.h b/include/m_clist.h
index 89edcc38f9..68e269b71e 100644
--- a/include/m_clist.h
+++ b/include/m_clist.h
@@ -258,15 +258,15 @@ typedef struct {
 
 /////////////////////////////////////////////////////////////////////////////////////////
 // gets the image list with all the useful icons in it
-// wParam = lParam = 0
-// returns a HIMAGELIST
 // the members of this image list are opaque, and you should trust what you are given
 
-#define MS_CLIST_GETICONSIMAGELIST    "CList/GetIconsImageList"
-
 #define IMAGE_GROUPOPEN     11
 #define IMAGE_GROUPSHUT     12
 
+#ifdef _INC_COMMCTRL
+EXTERN_C MIR_APP_DLL(HIMAGELIST) Clist_GetImageList(void);
+#endif
+
 /////////////////////////////////////////////////////////////////////////////////////////
 // The icon of a contact in the contact list has changed
 // wParam = (MCONTACT)hContact