-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
                  "Определение готовности диска" 
-----------------------------------------------------------------------
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;
-----------------------------------------------------------------------