A função DriveOk mostrada a seguir retorna True se a unidade informada está preparada e False caso contrário.

• Insira na seção uses: Windows, SysUtils, Dialogs
• Copie e cole a função DriveOk logo abaixo da palavra implementation em seu código-fonte.
• Coloque um botão no formuláriio.
• Progreme o evento OnClick do botão conforme exemplo mostrado a seguir.

function DriveOk(const Drive: Char): Boolean;
var
  ErrorMode: UINT;
begin
  ErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    Result := DiskSize(Ord(UpCase(Drive)) - 64) >= 0;
  finally
    SetErrorMode(ErrorMode);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DriveOk('D') then
    ShowMessage('Ok')
  else
    ShowMessage('Erro');
end;