| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Format ;A: [D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

FoxM ©   (2002-11-23 21:48:00) 

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

---

Marcus   (2002-11-25 11:34:00) [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 и т.д.

---

Наверх