如何编程实现打开格式化软盘的对话框（windows）？(50分)

如何编程实现打开格式化软盘的对话框（windows）？

easy!<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; winexec('RunDLL32.exe Shell32.dll,SHFormatDrive',sw_shownormal);<br>end;<br>

格式化A盘，该如何写？？？

1、先声明下面一个函数：<br>function SHFormatDrive(Hwnd:HWND;Drive:Integer;Size:Uint;Action:Integer):Integer;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; stdcall;external 'shell32.dll' name 'SHFormatDrive';<br>&nbsp; &nbsp; 说明：1、Hwnd：窗口所有者的句柄<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 2、Drive：所有格式化的对象：0指a驱；1指b驱；2指c盘...<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 3、Size：暂时无用 <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 4、Action：0:快速格式化；1：全面格式化；2：格式化时传送系统，即：sys a(b,c)<br>2、上述函数参数太多，可以再次进行包装即：<br>function FormatDrive(Drive,Action:Integer):Integer;<br>begin<br>&nbsp;Result:=SHFormatDrive(Application.Handle,Drive,0,Action);<br>end;<br>&nbsp; &nbsp;说明：只需要填写两个参数<br>3、用法：<br>&nbsp; &nbsp;1、快速格式化A盘： FormatDrive(0,0);<br>&nbsp; &nbsp;2、全面格式化A盘： FormatDrive(1,0); <br>&nbsp; &nbsp;3、格式化A盘时带系统： FormatDrive(2,0);<br>&nbsp; &nbsp;<br>

能够给一个 按钮的click的实例，谢谢！

implementation<br><br>{$R *.DFM}<br>function SHFormatDrive(Hwnd:HWND;Drive:Integer;Size:Uint;Action:Integer):Integer;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; stdcall;external 'shell32.dll' name 'SHFormatDrive';<br><br>function FormatDrive(Drive,Action:Integer):Integer;<br>begin<br>&nbsp;Result:=SHFormatDrive(Application.Handle,Drive,0,Action);<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; FormatDrive(0,1);<br>end;<br><br>单元的其它部分未列出，你新建一个项目，加一个按钮，按钮的事件如上。

接受答案了.