Добрый день!
Возник вопрос. Как проверить наличие диска. Пробовал:
Код:
function Disk(Drive : Char) : Boolean;
begin
Drive := UpperCase(Drive);
Result := DiskSize(ord(Drive) - $40) <> -1;
end;
Всё работает, но только если диска нет, вылезает окно, типа нету диска, вставьте диск в устройство F:, Нефиг, Нафиг, Пофиг.
