Du mußt dann im Prinzip nur die desktop.ini erstellen, bzw die beiden Werte (Name und Index) ändern
Delphi-Quellcode:
[.ShellClassInfo]
IconFile=user.ico
IconIndex=0
(geht ja ganz leicht, über TIniFile)
Und dann nicht vergessen, wenn die Datei von TIniFile neu erstellt wurde (FileExists fand sie vor dem Speichern nicht), die Attribute der Datei und des Ordners anpassen.