iconos de carpeta

[[cHackAll]]

Quise responderte con anterioridad pero el post se me borro
Lo que intentaba darte era un código parecido al siguiente:

Código Delphi [-]
procedure DefineIcon(Path, IconFile: string; IconIndex: Integer = 0);
var Desktop: Text;
begin
 Path := Path + '\Desktop.ini';
 AssignFile(Desktop, Path);
 ReWrite(Desktop);
 WriteLn(Desktop, '[.ShellClassInfo]');
 WriteLn(Desktop, 'IconFile=' + IconFile);
 WriteLn(Desktop, 'IconIndex=' + IntToStr(IconIndex));
 CloseFile(Desktop);
end;
 
procedure Form1.Button1Click(Sender: TObject);
begin
// DefineIcon('c:\Nueva carpeta', 'Icono.ico'); // El archivo Icono.ico está en la misma carpeta
// DefineIcon('c:\Nueva carpeta', '%SystemRoot%\system32\shell32.dll', 27); // El icono lo tomamos de una .DLL
 DefineIcon('c:\Nueva carpeta', 'c:\Archivos de programa\Delphi7SE\Projects\Project1.exe'); // El icono lo tomamos de nuestra aplicación
end;

Lo pruebas de las tres formas, y si hay algún errorcillo de sintaxis te pido disculpas pero no tenía un IDE cerca

Por lo que veía paldave te dio un ejemplo que hace lo mismo, y en ambos casos debería funcionar...

PD: No va por ahí el problema, IconIndex=0 es lo correcto
Saludos