Atribuir icone a um arquivo?

with TRegIniFile.Create(´´) do try RootKey := HKEY_CLASSES_ROOT; WriteString(´.MTA´, ´´, ´MTAfile´); { extenção do arquivo } WriteString(´MTAfile´, ´´, ´Meu Tipo de Arquivo´); { descrição do arquivo } WriteString(´MTAfile\DefaultIcon´, ´´, ´C:\dae.ico´); { icone a ser usado pelo arquivo. Voce pode tb indicar um programa e o numero do icone ex: WriteString(´MTAfile\DefaultIcon´, ´´, ´C:\programa.exe,0´);} WriteString(´MTAfile\Shell\open\command´, ´´, ´Programa.exe ¬1´); { programa que será aberto ao executar seu arquivo passando o nome do arquivo como parametro } finally Free; end;

with TRegIniFile.Create(´´) do try RootKey := HKEY_CLASSES_ROOT; WriteString(´.ETI´, ´´, ´txtfile´); WriteString(´txtfile´, ´´, ´Etiqueta Imprimax´); WriteString(´Txtfile\DefaultIcon´, ´´, ´C:\etiqueta.ico´); WriteString(´Txtfile\Shell\open\command´, ´´, ´byEtiquetas.exe ¬1´); finally Free; end;