求格式化硬盘的代码 ( 积分: 100 )

请问各位有没有格式化硬盘的代码.

请问各位有没有格式化硬盘的代码.

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> Result:=SHFormatDrive(Application.Handle,Drive,0,Action);<br>end;<br> &nbsp; 说明：只需要填写两个参数<br>3、用法：<br> &nbsp; 1、快速格式化A盘： FormatDrive(0,0);<br> &nbsp; 2、全面格式化A盘： FormatDrive(1,0); <br> &nbsp; 3、格式化A盘时带系统： FormatDrive(2,0);

我要格式化的硬盘的格式是:<br>硬盘的要空一些空间来直接写数据(就是不用文件系统),剩下的空间才拿去格式化分给文件系统来放文件.<br>可能要用到 createfile,DeviceIoControl,readfile,writefile.<br>不知道哪位有格式化的码源

硬盤整理就解決了。