Pastas - criando uma pasta com um icone especifico

var

  iniFile : TStrings ;

begin

  CreateDir('c:\DelphiDir');

  iniFile := TStringList.Create;

  iniFile.Add('[.ShellClassInfo]') ;

  iniFile.Add('IconFile=' + GetEnvironmentVariable('windir') + '\system32\SHELL32.DLL') ;

  iniFile.Add('IconIndex=47') ;

  iniFile.add('InfoTip=This is a locked folder') ;

  iniFile.SaveToFile('c:\DelphiDir\desktop.ini');

  SysUtils.FileSetAttr('c:\DelphiDir',SysUtils.faReadOnly);

  SysUtils.FileSetAttr('c:\DelphiDir\desktop.ini', SysUtils.faSysFile or SysUtils.faHidden) ;

  iniFile.Free ;

end;