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

Vídeos

Vídeos

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

Banner

Delphi - Arquivos, Diretórios e Discos

Como obter informações de um volume/disco (label, serial, sistema de arquivos, etc.)?

Este exemplo mostra como obter diversas informações sobre um volume (unidade de disco ou equivalente).

  • Inclua na seção uses: Windows, SysUtils, Dialogs
  • Coloque um botão no formulário.
  • Progreme o evento OnClick deste botão como abaixo.
procedure TForm1.Button1Click(Sender: TObject);
var
  NomeVolume, NomeSistemaArquivo: PChar;
  Serial, NomeArquivoMax, Flags: DWORD;
begin
  GetMem(NomeVolume, MAX_PATH);
  GetMem(NomeSistemaArquivo, MAX_PATH);
  try
    GetVolumeInformation('C:\', NomeVolume, MAX_PATH, @Serial,
      NomeArquivoMax, Flags, NomeSistemaArquivo, MAX_PATH);
    ShowMessage(
      'Nome do volume (label): ' + string(NomeVolume) + #13 +
      'Número serial: ' + IntToHex(Serial, 8) + #13 +
      'Nome arquivo máximo: ' + IntToStr(NomeArquivoMax) + #13 +
      'Sistema de arquivos: ' + string(NomeSistemaArquivo));
  finally
    FreeMem(NomeVolume, MAX_PATH);
    FreeMem(NomeSistemaArquivo, MAX_PATH);
  end;
end;

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