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 o tipo de uma unidade de armazenamento (removível, fixa, CD-ROM, etc.)?

Banner

Veja como é fácil obter o tipo de uma unidade de armazenamento (drive).

  • Inclua na seção uses: Windows, Dialogs
  • Coloque um botão no formulário.
  • Programe o evento OnClick como abaixo.
procedure TForm1.Button1Click(Sender: TObject);
var
  Unidade, Tipo: string;
begin
  Unidade := 'C:\';
  case GetDriveType(PAnsiChar(Unidade)) of
    0: Tipo := 'Tipo indeterminado';
    1: Tipo := 'Unidade não existe';
    DRIVE_REMOVABLE: Tipo := 'Unidade removível';
    DRIVE_FIXED: Tipo := 'Unidade fixo';
    DRIVE_REMOTE: Tipo := 'Unidade de rede';
    DRIVE_CDROM: Tipo := 'Unidade de CD/DVD';
    DRIVE_RAMDISK: Tipo := 'Unidade virtual (RAM Disk)';
  end;
  ShowMessage('Unidade: ' + Unidade + #13 + 'Tipo: ' + Tipo);
end;

Observação:

Para obter o tipo da unidade corrente, passe nil como parâmetro para a função GetDriveType.

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