Retirar atributos de uma pasta !

Delphi

16/08/2003

seguinte, eu consigo alterar os atributos dos arquivos da seguinte forma, me corrijam se eu estiver errado.

var p:pchar;
begin
p:=pchar(form3.edit1.text);
SetFileAttributes(p,7);

certo, ai eu atribui ah ele sistema, oculto e somente leitura.
li q pra retirar todos os atributos eh preciso colocar um ´0´ no lugar do meu 7, mas eu fiz isso e nao funcionou. ele continua com todos os atributos que eu tinha colocado antes. Q q eu faco pra ele tirar os atributos?????

8) [/code]


Smyle

Smyle

Curtidas 0

Respostas

Cebikyn

Cebikyn

16/08/2003

Eu acho que é com [b:24b08839ad]xor[/b:24b08839ad]:

FileSetAttr(FileName, FileGetAttr(FileName) xor $00000001);


Este exemplo remove a propriedade Somente Leitura.


GOSTEI 0
Smyle

Smyle

16/08/2003

ta e nao tm um numero desses ai $000000.. pra tirar todos os atributos?? 8)


GOSTEI 0
Cebikyn

Cebikyn

16/08/2003

Não que eu saiba, eu só conheço esses:[list:b9528e7454][*:b9528e7454]Somente leitura - $0000000
[*:b9528e7454]Oculto - $00000002
[*:b9528e7454]Sistema - $00000004
[*:b9528e7454]VolumeID - $00000008
[*:b9528e7454]Diretório - $00000010
[*:b9528e7454]Arquivo - $00000020
[*:b9528e7454]Qualquer Arquivo - $0000003F[/list:u:b9528e7454]Acho que para tirar todos, deve-se ver quais atributos o arquivo tem e depois tira-los usando os números a cima no código da msg anterior


GOSTEI 0
Smyle

Smyle

16/08/2003

hhmm, bom, vo tentar isso, eh q eu queria tirar todos os atributos q eu coloquei duma vez soh..

valeu


GOSTEI 0
POSTAR