fbpx

Verificando se uma unidade de disco está preparada

Verificando se uma unidade de disco está preparada

Crie um novo projeto;

Coloque no uses:
System, SysUtils

Na seção implementation da Unit1 digite 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;

Coloque no Form1 um TEdit (Edit1)

Coloque no Form1 um TButton

Altere o evento OnClick do Button1 conforme abaixo:

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

Observações:
Para testar você deverá executar o exemplo e digitar no Edit a letra do drive a ser testado (não precisa os dois-pontos). Após digitar, clique no Button1.

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.