如何在程序中格式化U盘？

Question

试了下网上有人介绍的：SHFormatDrive。
发现调用后的效果是弹出了Shell中的格式化窗口让用户点“开始”后才开始格式化。这个不是我想要的效果。有没有什么办法能不弹出窗口直接快速格式化？

Answer 1

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; 

Answer 2

先用writeln写一个format的batch，然后winexec或者shellexecute调用batch……

Answer 3

也可以参考一下这段代码：
http://www.vckbase.com/bbs/prime/viewprime.asp?id=322