用什么命令可以格式化磁盘

Question

用什么命令可以格式化磁盘

Answer 1

http://expert.csdn.net/Expert/topic/1422/1422431.xml?temp=.4916956

Answer 2

const
        SHFMT_ID_DEFAULT        = $FFFF;
        // Formating options
        SHFMT_OPT_QUICKFORMAT   = $0000;
        SHFMT_OPT_FULL          = $0001;
        SHFMT_OPT_SYSONLY       = $0002;
        // Error codes
        SHFMT_ERROR             = $FFFFFFFF; 
        SHFMT_CANCEL            = $FFFFFFFE; 
        SHFMT_NOFORMAT          = $FFFFFFFD; function SHFormatDrive(Handle: HWND; Drive, ID, Options: Word): LongInt;
        stdcall; external 'shell32.dll' name 'SHFormatDrive'procedure TForm1.btnFormatDiskClick(Sender: TObject);
var
        retCode: LongInt;
begin
        retCode:=SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT,SHFMT_OPT_QUICKFORMAT);
        if retCode < 0 then
                ShowMessage('Could not format drive');
end;end.

Answer 3

const
  FmtCmd = '%SystemRoot%\SYSTEM32\FORMAT.COM';
begin
Command := format('cmd.exe /c echo y | %s /FS:%s %s',
                          [FmtCmd, 'NTFS', DiskName]);

Answer 4

ShellExecute('Format e:');注最好把E：重要的东西备份一下！

Answer 5

function SHFormatDrive(hWnd : HWND;Drive, fmtID, Options : WORD) : longint; stdcall; external  'shell32.dll';function _DiskFormat( const Drive : Char ):string; //对一个可移动驱动器或硬盘驱动器格式化，注意这个函数是非常危险的.
var
  wDrive : WORD;
  dtDrive : string;
  formatretcode:longint;
begin
  dtDrive := _DiskDriverType(Upcase(Drive));
  if not _OK(dtDrive) then 
    begin
      result:=dtDrive+'(DiskFormat)'; 
      exit;
    end;                                    // if it's not a HDD or a FDD then raise an exception
  if (not _Contain('可移动',dtDrive)) and (not _Contain('硬盘',dtDrive)) then
    result := badresult+'无法格式化一个'+dtDrive
  else 
    begin                                   // 进行格式化
      wDrive := Ord(UpCase(Drive)) - Ord('A');     // SHFormatDrive 是一个没有公开的 API 函数调用
      formatretcode:=SHFormatDrive(Application.Handle, wDrive, $ffff, 0);
      if formatretcode=-1 then  
      result:=badresult+'格式化程序已执行，在格式化中发生错误，返回代码:'+inttostr(formatretcode)
      else 
        if formatretcode=-2 then  
          result:=badresult+'格式化程序已执行，用户放弃格式化驱动器:'+Drive
        else 
          if formatretcode=6 then  
            result:='格式化程序已执行，完成驱动器:'+Drive+'的格式化'
          else 
            result:='格式化程序已执行，返回代码：'+inttostr(formatretcode);
    end; 
end;