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

Вниз

Format A:   Найти похожие ветки 

← →
FoxM   (2002-11-23 21:48) [0]

Как мне при нажатии кнопки на форме проверить есть ли дискета в дисководе и если есть то отформатировать ее

---

← →
Marcus   (2002-11-25 11:34) [1]

Проверка наличия диска

OldErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
DiskExists := SetCurrentDirectory("A:\");
SetErrorMode(OldErrMode);

Для форматирования можно юзать недокументированную ф-ию SHFormatDrive из shell32.dll

function SHFormatDrive(hwndOwner: HWND; DiskNum: integer; Param1: integer; Param2: integer): integer; stdcall;

DiskNum: 0 - A, 1 - B и т.д.

---

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

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

Наверх

Память: 0.44 MB
Время: 0.013 c