Drives - verificar se estah pronto

Top  Previous  Next

Como verificar se uma unidade de disco (disk-drive) está preparada?

 

Coloque no uses: System, SysUtils

 

{ - Crie um novo projeto;

  - 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.