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