Мир Delphi
	Все самое интерресное что найдено в интернете о Delphi: компоненты, исходники программ, новые алгоритмы и решения.

Алгоритмы и решения / Разное (3) / Оределение готовности дисковода к работе

function DiskInDrive(const Drive: char): Boolean;
  var DrvNum: byte;
  EMode: Word;
begin
  Result := False;
  DrvNum := ord(Drive);
  if DrvNum >= ord('a') then dec(DrvNum,$20);
    EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if DiskSize(DrvNum-$40) <> -1 then
    Result := True
  else
    MessageBeep(0);
  finally
    SetErrorMode(EMode);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var s: string;
begin
  if DiskInDrive('A') then
    s:='Drive is Ready'
  else  s:='Drive is not Ready';
    Form1.Label1.Caption:=s;
end;