在delphi中实现磁盘格式化有哪几钟方法？？

Question

似乎Delphi没做封装，你应该要用WinApi。

Answer 1

怎么使用？？？我在DELPHI中使用API，它总出错“没有定义的变量和方法”，怎么回事？？

Answer 2

Delphi没做封装，你得调用dll文件，这样就可以了。

Answer 3

Category: Shell API 
You can use the ShellAPI funciton ShFormatDrive.Example: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;