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




Вниз

Как отформатировать HDD 


vik   (2001-10-06 14:47) [0]

Подскажите как отформатировать винчестер из программы на Delphi ?
Буду благодарен за любой ответ или ссылку а за исходники вдвойне Виталик.



Anatoly Podgoretsky   (2001-10-06 17:29) [1]

Есть такая программа, называется format, запусти ее с нужными параметрами.



33   (2001-10-07 15:50) [2]

Вопрос не до конца написан:
"Как отформатировать винчестер из программы на Delphi на
компьютере у "друга".

Может лучше только дискету а ...



Dima-k17   (2001-10-13 15:47) [3]

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;



ValeraVV   (2001-10-14 09:19) [4]

А зачем ?



Anatoly Podgoretsky   (2001-10-14 14:03) [5]

Что бы чистый был :-)



Go_Blin   (2001-10-14 22:27) [6]

Мне как-то приснился страшный сон!
Мой препод из колледжа по архитектуре ЭВМ
задал мне вопрос: "Как отформатировать Винт в MS Word!!!"



Adder   (2001-10-15 00:10) [7]

2Go_Blin Ну, это не так сложно, как кажется :)




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




Наверх





Память: 0.72 MB
Время: 0.031 c
7-90390           Andrei                2001-10-17 10:08  2002.01.28  
Помогите: необходима эмуляция поведения мыши


14-90362          Дремучий              2001-12-03 23:44  2002.01.28  
Китайские сервера!


1-90242           Yaro                  2002-01-08 17:57  2002.01.28  
Совместимость Delphi (CGI) c Unix oм...


1-90280           FX_Demon              2002-01-09 20:31  2002.01.28  
!!OpenGL!!


1-90303           KingSize              2002-01-11 11:35  2002.01.28  
Имя компьютера в сети