![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отформатировать HDD [D5, Win95/98, WinME]
vik © (2001-10-06 14:47:00)Подскажите как отформатировать винчестер из программы на Delphi ?
Буду благодарен за любой ответ или ссылку а за исходники вдвойне Виталик.
Adder (2001-10-15 00:10:00) [1]2Go_Blin Ну, это не так сложно, как кажется :)
Go_Blin (2001-10-14 22:27:00) [2]Мне как-то приснился страшный сон!
Мой препод из колледжа по архитектуре ЭВМ
задал мне вопрос: "Как отформатировать Винт в MS Word!!!"
Anatoly Podgoretsky (2001-10-14 14:03:00) [3]Что бы чистый был :-)
ValeraVV (2001-10-14 09:19:00) [4]А зачем ?
Dima-k17 (2001-10-13 15:47:00) [5]ShellAPI функция ShFormatDrive().
Пример:
const SHFMT_DRV_A = 0;
const SHFMT_DRV_B = 1;
const SHFMT_ID_DEFAULT = $FFFF;
const SHFMT_OPT_QUICKFORMAT = 0;
const SHFMT_OPT_FULLFORMAT = 1;
const SHFMT_OPT_SYSONLY = 2;
const SHFMT_ERROR = -1;
const SHFMT_CANCEL = -2;
const SHFMT_NOFORMAT = -3;
function SHFormatDrive(hWnd : HWND;
Drive : Word;
fmtID : Word;
Options : Word) : Longint
stdcall; external "Shell32.dll" name "SHFormatDrive";
procedure TForm1.Button1Click(Sender: TObject);
var
FmtRes : longint;
begin
try
FmtRes:= ShFormatDrive(Handle,
SHFMT_DRV_A,
SHFMT_ID_DEFAULT,
SHFMT_OPT_QUICKFORMAT);
case FmtRes of
SHFMT_ERROR : ShowMessage("Error formatting the drive");
SHFMT_CANCEL :
ShowMessage("User canceled formatting the drive");
SHFMT_NOFORMAT : ShowMessage("No Format")
else
ShowMessage("Disk has been formatted");
end;
except
end;
end;
33 (2001-10-07 15:50:00) [6]Вопрос не до конца написан:
"Как отформатировать винчестер из программы на Delphi на
компьютере у "друга".
Может лучше только дискету а ...
Anatoly Podgoretsky (2001-10-06 17:29:00) [7]Есть такая программа, называется format, запусти ее с нужными параметрами.