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

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

кто знает как отформатировать дискету? [D6]

Фукс ©   (2002-11-16 13:00:00) 

кто знает как из своей программы отформатировать дискету?

---

Фукс   (2002-11-16 15:09:00) [1]

а винчестер можно так отформатировать?

---

Eugen Honeker   (2002-11-16 14:44:00) [2]


procedure FormatDriveDialog;
begin
ShellExecute(Application.Handle,
"Open",
"Rundll32.exe",
"Shell32.dll,SHFormatDrive",
"C:\",
SW_SHOWNORMAL);
end;

function SHFormatDrive(hWnd : HWnd;
Drive, fmtID, Options : LongInt):longint;
stdcall; external "shell32.dll";

procedure QuietFormatDrive;
const
SHFMT_ID_DEFAULT = $FFFF;
SHFMT_OPT_QUICK = $0000;
SHFMT_OPT_FULL = $0001;
SHFMT_OPT_SYSONLY = $0002;
SHFMT_ERROR = $FFFFFFFF;
SHFMT_CANCEL = $FFFFFFFE;
SHFMT_NOFORMAT = $FFFFFFFD;
begin
case SHFormatDrive(Application.Handle, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) of
SHFMT_ERROR : ShowMessage("Error on last format, drive may be formatable");
SHFMT_CANCEL : ShowMessage("Last format was canceled");
SHFMT_NOFORMAT : ShowMessage("Drive is not formatable");
end;
end;


---

Наверх