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', 'c:\Archivos de programa\Delphi7SE\Projects\Project1.exe'); 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