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
- Abra o Delphi e crie um novo projeto VCL Forms Application.
- 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.
-
TEdit (nome:
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
- Execute o programa.
-
Digite a letra do drive no campo
Edit1
(exemplo:D
). - 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”.