Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как определить наличие дискеты в дисководе [D5, Win95/98]

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

SiaCD (2002-11-09 22:47:00) [1]
> Dummy: Integer -->> LongWord;
...а я мучаюсь....:))

Almaz (2002-11-08 23:23:00) [2]

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

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

Удачи.

Геннадий (2002-11-08 10:48:00) [3]
Сорри, оказывается вместо "A:" нужно писать "A:\". Тогда и HDD и CD определяется.

Геннадий (2002-11-08 10:44:00) [4]
А почему, если подставить вместо А: - С:, то говорит - Нет дискеты? HDD есть всегда... А CD можно так проверять?

Геннадий (2002-11-08 10:39:00) [5]
Для: Almaz © (08.11.02 05:42)

var
Dummy: Integer -->> LongWord;

SiaCD (2002-11-08 10:11:00) [6]
Сенк!...

Николай Быков (2002-11-08 05:43:00) [7]

> Almaz © (08.11.02 05:42)

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

Almaz (2002-11-08 05:42:00) [8]

> 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:22:00) [9]
Посмотри раздел справки Win32 SDK HELP по теме
Getting Floppy Drive Information
Там все расписано и даже с примером

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »