Delphi World - Как в Delphi изменить иконку у директории
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как в Delphi изменить иконку у директории

Обычно, для изменения вида папок в Проводнике используется файл desktop.ini.

Сперва необходимо создать файл Desktop.ini и поместить в ту директорию, иконку которой мы хотим изменить. В программе для этого можно воспользоваться классом TIniFile и передать в него путь директории.

Теперь нам необходимо записать в .ini файл пары <key>=<value>. В Desktop.ini эти пары выглядят следующим образом (самое главное, это указать иконку и её индекс):


[.ShellCLassInfo]
IconFile=C:LocationofFolder.ico
IconIndex=0
InfoTip=Delphi is the coolest IDE ever!
// Значение IconFile это путь к .dll, .ico, или .exe. В Delphi это выглядит так:


with iniFile do
begin
  // Следующие строки меняют иконку
  WriteString('.ShellClassInfo', 'IconFile', editIconPath.Text);
  WriteString('.ShellClassInfo', 'IconIndex', editIconIndex.Text);
  WriteString('.ShellClassInfo', 'InfoTip', 'Use Delphi because it rocks!');
  UpdateFile;
end;

Теперь, когда файл Desktop.ini создан, необходимо изменить атрибуты папки и добавить системный флаг. Чтобы иконка отображалась правильно, желательно установить системный флажёк как для папки, так и для её родителя. Для установки атрибутов воспользуемся функцией SetFileAttribue():


//Устанавливаем системные атрибуты для папки и её родителя
SetFileAttributes(PChar(edFolderPath.Text), FILE_ATTRIBUTE_SYSTEM);
if Length(edFolderPath.Text) > 3 then //Если директория не корневая...
begin
  //функция LastChar возвращает индекс последнего вхождения символа
  //в строку. Этот способ позволяет быстро получить путь родительской
  //директориии, если, конечно, директория не является корневой на диске..
  tempDir := Copy(edFolderPath.Text, 1, LastChar(edFolderPath.Text, '') - 1);
  SetFileAttributes(PChar(tempDir), FILE_ATTRIBUTE_SYSTEM);
end;

Теперь можно открыть Проводник и посмотреть в левой панели на значёк директории.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования