Drives - verificar se estah pronto

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.