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.