Блин, пишу прогу (типа с дискетами там работает) и вот проблема, не могу замутить процедурку для проверки установлена ли дискета или нет. Но надо так чтобы ошибок не было. Кто может помогите, желательно пример конкретный. Я как то уже про сие спрашивал, но с ответами поработал и в итоге снова спрашиваю.

uses Dos;

function DiskInDrive(const DriveLetter: char): Boolean;
var SR: SearchRec;
begin
  FindFirst(DriveLetter + ':\*.*', AnyFile, SR);
  DiskInDrive := DosError = 0;
end;

begin
  writeln(DiskInDrive('A'));
end.

Это, естественно, при условии, что дисковод, определяемый DriveLetter существует в системе...