Código Delphi [-]procedure DefineIcon(Path, IconFile: string; IconIndex: Integer = 0); var Desktop: TextFile; begin...
procedure DefineIcon(Path, IconFile: string; IconIndex: Integer = 0); var Desktop: TextFile; begin...