Как в Delphi изменить иконку у директории

[.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;

//Устанавливаем системные атрибуты для папки и её родителя
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;