1 files changed, 23 insertions, 2 deletions
diff --git a/tools/iceit/Unit1.pas b/tools/iceit/Unit1.pas
index 74c83beae8..8ed8e36f04 100644
--- a/tools/iceit/Unit1.pas
+++ b/tools/iceit/Unit1.pas
@@ -85,7 +85,7 @@ type
 
 var
   Form1: TForm1;
-  IconsItem, PluginsItem: Integer;
+  IconsItem, PluginsItem, CoreItem: Integer;
   IcePath: String;
   MirandaPath: String;
 
@@ -423,7 +423,8 @@ begin
       ProgressBar1.Position := n;
       S := GetValue(CheckListBox1.Items[n], 0);
       S := LowerCase(S);
-      if n < PluginsItem then F := '\icons' else F := '\plugins';
+      if n < PluginsItem then F := '\icons' else
+      if n < coreitem then F := '\plugins' else  F := '\core';
       StatusBar1.Panels[0].Text := ' Processing: ' + S;
       if (S = 'miranda32') or (S = 'miranda64') then
       begin
@@ -566,6 +567,26 @@ begin
     end;
   end;
   Windows.FindClose(FindHandle);
+   // core
+  CheckListBox1.Items.Add('core|NONE|');
+  PluginsItem := CheckListBox1.Items.Count-1;
+  CheckListBox1.Header[PluginsItem] := True;
+  FindData.dwFileAttributes := FILE_ATTRIBUTE_NORMAL;
+  FilePath := IcePath + '\core\*.*';
+  FindHandle := FindFirstFile(PChar(FilePath), FindData);
+  if FindHandle <> INVALID_HANDLE_VALUE then
+  begin
+    FindNext := True;
+    while FindNext do
+    begin
+      FileName := FindData.cFileName;
+      if (FileName <> '..') and (FileName <> '.') then
+        if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0 then
+         CheckListBox1.Items.Add(LowerCase(FileName)+'|NONE|');
+      FindNext := FindNextFile(FindHandle, FindData);
+    end;
+  end;
+  Windows.FindClose(FindHandle);
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);