如何将U盘的物理引导区格掉或是清0呢! ( 积分: 102 )

之前做的清楚程序,清除的是后面的逻辑分区的数据,并没有把U盘最前面的物理磁盘引导区清除(我用WINHEX对比得到的,别的工具好象看不出).有位大侠说我应该先找到对应物理磁盘在系统下的编号,然后format('//./PHYSICALDRIVE%d', [0]);找了些资料代码.原来有些兄弟也问过,不过都没有完整的答案.比较多的是这段代码,但是它怎么返回都是0,没有正确的编号! 请教大家了! 这段代码哪里不对或者 有什么更好的方法.
const
FILE_ANY_ACCESS = 0;
METHOD_BUFFERED = 0;
IOCTL_VOLUME_BASE = DWORD('V');
IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS = (
(IOCTL_VOLUME_BASE shl 16) or (FILE_ANY_ACCESS shl 14) or
(0 shl 2) or METHOD_BUFFERED);
type
TDiskExtent = record
DiskNumber: DWORD;
StartingOffset: LARGE_INTEGER;
ExtentLength: LARGE_INTEGER;
end;
TVolumeDiskExtents = record
NumberOfDiskExtents: DWORD;
Extents: array [0..0] of TDiskExtent;
end;
PVolumeDiskExtents = ^TVolumeDiskExtents;
function TForm1.GetVolumeInfo(DriverLetter: Char): TDiskExtent;
var
hVolume: THandle;
DiskExtents: PVolumeDiskExtents;
dwOutBytes: Cardinal;

begin
with Result do
begin
DiskNumber := 0;
StartingOffset.QuadPart := 0;
ExtentLength.QuadPart := 0;
end;
hVolume := CreateFile(PChar('//./'+DriverLetter+':'), GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if hVolume < 1 then Exit;
DiskExtents := AllocMem(Max_Path);
if DeviceIoControl(hVolume,
IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS,
nil, 0,
DiskExtents, Max_Path,
dwOutBytes, nil) then
begin
if DiskExtents^.NumberOfDiskExtents > 0 then
Result := DiskExtents^.Extents[0];
end;
FreeMem(DiskExtents);
CloseHandle(hVolume);
end;

学习学习

帮你顶一个，接个分

谢谢帮忙顶,希望各位高手多多指教下!

ding,请各位大侠多多指教下,有经验的大侠多发表意见下,谢谢

如果你想花最少的钱学习流行的计算机技术,本人低价提供
计算机专业高清晰 视 频 教 程,所有教程由业内名家讲解，物超所值,
所有光盘4元/张,特快专递全国三天内到货.
联系方式:手 机：1 3 5 76145612(手机联系佳) Q Q:108410943
E-mail:ncncldjjg@126.com
1、Oracle9iOCP(Oracle认证专家DBA)视频教程(23CD)
2、SQL语言、数据挖掘、SQLServer2000视频教程(6CD)
3、计算机网络原理视频教程(4CD)
4、计算机实用组网技术视频教程(3CD)
5、MCSE（微软认证系统工程师）认证视频教程(11CD)
6、windows2003即学即会视频教程(6CD)
7、J2EE Web程序开发定向班/Java就业班视频教程
(java基础jsp核心技术UML设计)(13CD)
8、J2EE基础高级案例分析视频教程(9CD)
9、马士兵J2SE入门与精通(含坦克大战、BBS实例)视频教程(6CD)
10、java语言深入详解视频教程(12CD)
11、java技术从入门到精通视频教程(21CD)
12、javascript全接触视频教程(13CD)
13、各类网站源程序(9CD)
14、unix原理视频教程(3CD)
15、Linux软件开发工程师(C语言)视频教程(4CD)
16、Linux配置、管理、优化实战工程师视频教程(8CD)
17、Linux内核编程视频教程(11CD)
18、C语言详解视频教程(2CD)
19、VC++6.0(MFC)开发技术术详解视频教程(6CD)
20、ASP.NET中文视频教程(3CD)
21、洪恩C#入门多媒体教程(1CD)
22、XML技术视频教程(2CD)
23、操作系统视频教程(3CD)
24、网络技术基础视频教程(2CD)
25、数据结构视频教程(5CD)
26、清华大学计算机专业多媒体教程（数据结构、汇编、编译原理等）(13CD)
27、大学数学[离散数学线性代数概率与数理统计微积分]视频教程(22CD)
28、LearnKey Asp.Net (老外用英语讲课)(13CD)
29、LearnKey Asp.Net Webservice(老外用英语讲课)(5CD)
30、AppDev Asp.Net2.0 UsingC# (老外用英语讲课)(1CD)
31、APPDev .Net Framework(老外用英语讲课)(2CD)
32、林清安pro/e2001(野火版)视频教程(18CD)
33、深圳大学3D设计视频教程(4CD)
34、3DMAX建模视频教程(老外用英语讲课)(6CD)
35、3DMAX纹理与贴图材质灯光视频教程(老外用英语讲课)(5CD)
36、3DMAX格式500个常用模型库(4CD)
37、lightscape基础入门视频教程(2CD)
38、聚光制造（lightscape3.2入门与精通视频教程）(4CD)
39、coreldraw12中文版入门与精通swf格式视频教程(2CD)

请大家多多帮忙!有经验的给点意见,一直没进展,谢谢了

帮顶下~

Procedure ClearBoot(DirverNum : Char);
const
SectionSize = 512;
var
hDriver : Cardinal;
Buf : String;
begin
SetLength(Buf, SectionSize);
ZeroMemory(PChar(Buf), SectionSize);
hDriver := FileOpen(Format('//./%s:',[DirverNum]), fmOpenReadWrite or fmShareDenyNone);
if hDriver = INVALID_HANDLE_VALUE then
Exit;
FileWrite(hDriver, PChar(Buf), SectionSize);
FileClose(hDriver);
end;