Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 можно так проверять?

---

← →
Геннадий   (2002-11-08 10:48) [7]

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

---

← →
Almaz   (2002-11-08 23:23) [8]

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

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

Удачи.

---

← →
SiaCD   (2002-11-09 22:47) [9]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c