[mak-karpov]

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

Код:

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

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

[NIch]

Попробуй так...

Код:

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

[Aristarh Dark]

Вот тут попробуй почитать. В принципе тоже самое, но есть еще мысли.

[mak-karpov]

Сообщение от Aristarh Dark

Вот тут попробуй почитать. В принципе тоже самое, но есть еще мысли.

Спасибо огромнейшее! Способ Nich'а не работает

[CTAJLUH]

А ты не пробовал открыть дисковод и проверить!
На мой взгляд это самый простой и действенный способ проверки наличия диска в дисководе!!

если не знаешь как открыть отвечу:
ищи кнопку на дисководе и вот чудо! Проверка есть диск? да врубай прогу нет вставьте диск в сидиром
если кнопки нет ищи дома фомку и открывай дисковод в ручном режиме