Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Delphi - Arquivos, Diretórios e Discos

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

Banner

Veja como é simples obter os atributos de um arquivo:

  • Insira na seção uses: Windows, Dialogs
  • Coloque um botão no formulário.
  • Programe o evento OnClick deste botão como abaixo.

procedure TForm1.Button1Click(Sender: TObject);
var
  Arquivo, Mensagem: string;
  Atributos: DWORD;
begin
  Arquivo := 'C:\Tecnobyte\SAC_Free\SAC.exe';
  Atributos := GetFileAttributes(PAnsiChar(Arquivo));
  Mensagem := 'Arquivo:'#13#9 + Arquivo + #13'Atributos:';
  if (Atributos and FILE_ATTRIBUTE_ARCHIVE) > 0 then
    Mensagem := Mensagem + #13#9'Archive';
  if (Atributos and FILE_ATTRIBUTE_COMPRESSED) > 0 then
    Mensagem := Mensagem + #13#9'Compressed';
  if (Atributos and FILE_ATTRIBUTE_DIRECTORY) > 0 then
    Mensagem := Mensagem + #13#9'Directory';
  if (Atributos and FILE_ATTRIBUTE_HIDDEN) > 0 then
    Mensagem := Mensagem + #13#9'Hidden';
  if (Atributos and FILE_ATTRIBUTE_NORMAL) > 0 then
    Mensagem := Mensagem + #13#9'Normal';
  if (Atributos and FILE_ATTRIBUTE_OFFLINE) > 0 then
    Mensagem := Mensagem + #13#9'OffLine';
  if (Atributos and FILE_ATTRIBUTE_READONLY) > 0 then
    Mensagem := Mensagem + #13#9'ReadOnly';
  if (Atributos and FILE_ATTRIBUTE_SYSTEM) > 0 then
    Mensagem := Mensagem + #13#9'System';
  if (Atributos and FILE_ATTRIBUTE_TEMPORARY) > 0 then
    Mensagem := Mensagem + #13#9'Temporary';
  ShowMessage(Mensagem);
end;

O conteúdo desta página pode ajudar alguém? Compartilhe!