Como Verificar se uma Unidade de Disco Está Preparada no Delphi
Compartilhe :

Se você deseja verificar se uma unidade de disco (como C, D ou um pendrive) está pronta para uso no Delphi, siga este guia passo a passo para criar um programa simples que faz essa verificação.

Passo 1: Criar um Novo Projeto

  1. Abra o Delphi e crie um novo projeto VCL Forms Application.
  2. No Form1, adicione os seguintes componentes da paleta Standard:
    • TEdit (nome: Edit1) → Para inserir a letra da unidade a ser testada.
    • TButton (nome: Button1) → Para iniciar a verificação.

Passo 2: Adicionar as Bibliotecas Necessárias

No início da Unit1, adicione o seguinte no uses:

uses
  System.SysUtils, System.Classes;

Passo 3: Criar a Função para Verificar a Unidade

No bloco implementation, adicione a função abaixo:

function DriveOk(Drive: Char): boolean;
var
  I: byte;
begin
  Drive := UpCase(Drive);
  if not (Drive in ['A'..'Z']) then
    raise Exception.Create('Unidade incorreta');
  I := Ord(Drive) - 64;
  Result := DiskSize(I) >= 0;
end;

Essa função recebe a letra do drive, converte para maiúscula e verifica se está dentro do intervalo A-Z. Em seguida, usa DiskSize para testar se a unidade está acessível.

Passo 4: Criar o Evento OnClick do Botão

Agora, altere o evento OnClick do Button1:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DriveOk(Edit1.Text[1]) then
    ShowMessage('Drive OK')
  else
    ShowMessage('Drive não preparado');
end;

Esse código lê a primeira letra digitada no Edit1, chama a função DriveOk e exibe uma mensagem informando se o drive está pronto para uso.

Passo 5: Testar o Programa

  1. Execute o programa.
  2. Digite a letra do drive no campo Edit1 (exemplo: D).
  3. Clique no botão para verificar o status da unidade.

Caso a unidade esteja acessível, será exibida a mensagem “Drive OK”, caso contrário, “Drive não preparado”.


Compartilhe :

Posts Similares