Arquivos - atributos de um arquivo ou diretorio

Top  Previous  Next

Como obter os atributos de um arquivo/diretório?

 

Coloque no uses: Windows

 

{ No form:

  - Coloque um memo;

  - Coloque um edit;

  - Coloque um botão e escreva seu OnClick como abaixo: }

 

procedure TForm1.Button1Click(Sender: TObject);

var

  Attr: DWord;

begin

  Memo1.Clear;

  Attr := GetFileAttributes(PChar(Edit1.Text));

  if Attr > 0 then

    with Memo1.Lines do begin

      if (Attr and FILE_ATTRIBUTE_ARCHIVE) > 0 then

        Add('Archive');

      if (Attr and FILE_ATTRIBUTE_COMPRESSED) > 0 then

        Add('Compressed');

      if (Attr and FILE_ATTRIBUTE_DIRECTORY) > 0 then

        Add('Directory');

      if (Attr and FILE_ATTRIBUTE_HIDDEN) > 0 then

        Add('Hidden');

      if (Attr and FILE_ATTRIBUTE_NORMAL) > 0 then

        Add('Normal');

      if (Attr and FILE_ATTRIBUTE_OFFLINE) > 0 then

        Add('OffLine');

      if (Attr and FILE_ATTRIBUTE_READONLY) > 0 then

        Add('ReadOnly');

      if (Attr and FILE_ATTRIBUTE_SYSTEM) > 0 then

        Add('System');

      if (Attr and FILE_ATTRIBUTE_TEMPORARY) > 0 then

        Add('Temporary');

  end;

end;