[mak-karpov]

Добрый день!
Возник вопрос. Как проверить наличие диска. Пробовал:

Код:

function Disk(Drive : Char) : Boolean;
begin
    Drive := UpperCase(Drive);
    Result := DiskSize(ord(Drive) - $40) <> -1;
end;

Всё работает, но только если диска нет, вылезает окно, типа нету диска, вставьте диск в устройство F:, Нефиг, Нафиг, Пофиг.