Delphi格式化磁盤

Delphi完成磁盤格式化的例子，可選擇快速格式化、完全格式化、僅復制系統文件等功能，對A盤格式化，希望對學習Delphi的有所幫助。

vIEw source print? 01 unit MainUnit; 02 interface 03 uses 04   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05   StdCtrls; 06 type 07   TMainForm = class(TForm) 08     Button1: TButton; 09     Label1: TLabel; 10     Button2: TButton; 11     Button3: TButton; 12     procedure Button1Click(Sender: TObject); 13     procedure Button2Click(Sender: TObject); 14     procedure Button3Click(Sender: TObject); 15   private 16     procedure FormatDriver(i: String); 17     { Private declarations } 18   public 19     { Public declarations } 20   end; 21   22 var 23   MainForm: TMainForm; 24 const 25   FMT_DRV_A= 0;  //格式化A盤（即軟盤）; 26   FMT_ID_DEFAULT= $FFFF; 27   FMT_OPT_QUICKFORMAT= 0;  //快速格式化; 28   FMT_OPT_FULLFORMAT= 1;  //完全格式化; 29   FMT_OPT_SYSONLY= 2;  //僅復制系統文件; 30   FMT_ERROR= -1;  //格式化出錯; 31   FMT_CANCEL= -2;  //格式化取消； 32   FMT_NOFINISH= -3;  //格式化沒有完成； 33 function SHFormatDrive(hWnd: HWND; Drive: Word; fmtID: Word; 34   Options: Word): LongInt stdcall; external 'Shell32.dll' name 'SHFormatDrive'; 35 implementation 36 {$R *.DFM} 37 procedure TMainForm.FormatDriver(i: String); 38 var 39   FmtRes: LongInt; 40 begin 41   try 42     if i= '0' then 43       FmtRes:= SHFormatDrive(Handle, FMT_DRV_A, FMT_ID_DEFAULT, FMT_OPT_QUICKFORMAT);//快速格式化 44     if i= '1' then 45       FmtRes:= SHFormatDrive(Handle, FMT_DRV_A, FMT_ID_DEFAULT, FMT_OPT_FULLFORMAT);//完全格式化 46     if i= '2' then 47       FmtRes:= SHFormatDrive(Handle, FMT_DRV_A, FMT_ID_DEFAULT, FMT_OPT_SYSONLY);//僅復制系統文件 48     case FmtRes of 49       FMT_ERROR: ShowMessage('格式化出錯！'); 50       FMT_CANCEL: ShowMessage('格式化取消！'); 51       FMT_NOFINISH: ShowMessage('格式化沒有完成！'); 52     else 53       ShowMessage('格式化成功！'); 54     end; 55   except 56   end; 57 end; 58 procedure TMainForm.Button1Click(Sender: TObject); 59 begin 60   FormatDriver('0'); 61 end; 62 procedure TMainForm.Button2Click(Sender: TObject); 63 begin 64   FormatDriver('1'); 65 end; 66 procedure TMainForm.Button3Click(Sender: TObject); 67 begin 68   FormatDriver('2'); 69 end; 70 end.