Atributo de Arquivo - FileSetAttr

[O Arquiteto 0]

Atributo de Arquivo - FileSetAttrO que estou errando??????????????Olá pessoal!Preciso alterar o atributo de um arquivo, então encontrei a dica abaixo:function FileSetAttr(const FileName: string; Attr: Integer): Integer; Exemplo: FileSetAttr ('C:\logo.sys',0);Onde Attr:Interger:0=Sem Atributos;1=Somente Leitura;2=Oculto;3=Somente Leitura e Oculto;4=Sistema;5=Somente Leitura e Sistema;6=Sistema e Oculto;7=Somente Leitura,Sistema e Oculto;Aí eu criei um botão em um form e coloquei o seguinte código:procedure TForm1.Button1Click(Sender: TObject);beginFileSetAttr ('C:\Teste\Teste.TXT',0);end; Mas os atributos do arquivo não são alterados, o que estou errando?Tudo o que quero é que ao clicar no botão os atributos do arquivomudem.Alguém pode me ajudar?Abraços a todos!

[marcio.theis 3]

Estranho, fiz um teste aqui e funcionou perfeitamente, você ainda continua com o problema ?