Форум: "Основная";
Текущий архив: 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.007 c
