Criar Txt Oculto. (Resolvido)

[Paulo Nobre]

Prezados colegas,

O código abaixo é tradicional para cria um txt

If Not FileExists( ExtractFileDir(Application.exename)+'\SENHAS.txt') Then

begin

Assignfile(f,ExtractFileDir(Application.exename)+'\SENHAS.txt');

Rewrite(f);

Closefile(f);

end;

Como faria para criar este mesmo txt com a propriedade de OCULTO.

Agradeço a quem puder ajudar.

[Progr'amador]

Olá Paulo,

Faça assim:

If Not FileExists( ExtractFileDir(Application.exename)+'\SENHAS.txt') Then

begin

Assignfile(f,ExtractFileDir(Application.exename)+'\SENHAS.txt');

Rewrite(f);

Closefile(f);

FileSetAttr(ExtractFileDir(Application.exename)+'\SENHAS.txt',2);

end;

você pode alterar os atributos com esses código:

0 = Sem Atributo;

1 = Somente Leitura;

2 = Oculto;

3 = Somente Leitura e Oculto;

4 = Sistema;

5 = Somente Leitura e Sistema;

6 = Sistema e Oculto;

7 = Somente Lieitura, Sistema e Oculto.

Abs. Progr'amador.

[Paulo Nobre]

Brigadão Progr'amador,

Parece que você advinhou, pois ia também pedir os outros:

para somente leitura etc..

[Paulo Nobre]

Funcionou sem problemas mas, aparece um warning:

[Warning] UnitApagarCadastrados.pas(66): Symbol 'FileSetAttr' is specific to a platform

Alguém sabe por que?

Como faço para parar esta mensagem?

[Paulo Nobre]

Alguém sabe porque está inofensiva mensagem aparece?

Existe alguma maneira de parar as mensagens warnings?

Neste caso ela prejudicaria o programa em algum aspecto?

Obrigado

[Progr'amador]

Olá Paulo,

você já tentou fazer isso fora do seu projeto, tipo criar um novo projeto, so pra fazer o teste, o problema pode ser no seu projeto, porque eu fiz o teste aki em D3 e D7 e não deu nenhum erro.

Abs. Progr'amador.

[s3c]

Olá Paulo, tente utilizar a função direta da api kernel32.

SetFileAttributes('c:\temp\teste.xxx', {Atributo});

Atributo =

FILE_ATTRIBUTE_ARCHIVE

FILE_ATTRIBUTE_HIDDEN

FILE_ATTRIBUTE_NORMAL

FILE_ATTRIBUTE_READONLY

FILE_ATTRIBUTE_SYSTEM

[Paulo Nobre]

Olá, Progr'amador e s3c,

De fato, Progr'amador, deve ser alguma coisa do projeto, pois fazendo o teste isolado como você falou não dá problema.

Usei a função, que você, s3c, sugeriu e deu certo.

Obrigado

[Progr'amador]

Então resolvido! certo?

Fechando...

Abs. Progr'amador