[DELPHI] DEFININDO ATRIBUTOS DE UM ARQUIVO

// uses SysUtils

procedure TForm1.Button1Click(Sender: TObject);

var

  _arq: string;

begin

  if OpenDialog1.Execute then

  begin

    _arq := OpenDialog1.FileName;

    if trim(_arq) <> EmptyStr then

    begin

      FileSetAttr(_arq, 0);

    end;

end;

Podemos definir as seguintes opções de atributos:

      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;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】