как определить наличие дискеты в дисководе

← →
SiaCD © (2002-11-08 02:07) [0]

программе надо читать файл с диска А:, нужно сделать так, что б при отсутствии дискеты невыскакивали никакие сообщения.
то есть дисковод "пожурчал" - дискеты нету - прогрмма закрылась.

← →
Николай Быков © (2002-11-08 05:22) [1]

Посмотри раздел справки Win32 SDK HELP по теме
Getting Floppy Drive Information
Там все расписано и даже с примером

← →
Almaz © (2002-11-08 05:42) [2]

> SiaCD © (08.11.02 02:07)
> программе надо читать файл с диска А:, нужно сделать так,
> что б при отсутствии дискеты невыскакивали никакие сообщения.
> то есть дисковод "пожурчал" - дискеты нету - прогрмма закрылась.

var Dummy: Integer; begin if GetVolumeInformation("A:", nil, 0, nil, Dummy, Dummy, nil, 0) then ShowMessage("Дискета есть") else ShowMessage("Дискеты нет"); end;

Удачи.

← →
Николай Быков © (2002-11-08 05:43) [3]

> Almaz © (08.11.02 05:42)

Гррррр. Дорогу маленьким, я тоже хочу мастера получить

← →
SiaCD © (2002-11-08 10:11) [4]

Сенк!...

← →
Геннадий © (2002-11-08 10:39) [5]

Для: Almaz © (08.11.02 05:42)

var
Dummy: Integer -->> LongWord;

← →
Геннадий © (2002-11-08 10:44) [6]

А почему, если подставить вместо А: - С:, то говорит - Нет дискеты? HDD есть всегда... А CD можно так проверять?

Сорри, оказывается вместо "A:" нужно писать "A:\". Тогда и HDD и CD определяется.

> Геннадий © (08.11.02 10:39)
> Для: Almaz © (08.11.02 05:42)
> var
> Dummy: Integer -->> LongWord;

А разница :) Значение - то все равно не нужно.

Удачи.

> Dummy: Integer -->> LongWord;
...а я мучаюсь....:))

как определить наличие дискеты в дисководе Найти похожие ветки