月光软件站 - 编程文档 - Delphi - windows NT/2000读写物理，逻辑磁盘扇区

Delphi

本类阅读TOP10

·游戏外挂设计技术探讨①
·如何使用Delphi设计强大的服务器程序
·分布式网络考试系统原型分析及实现
·用DLL方式封装MDI子窗体。
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·url编码与解码工具附代码
·工人线程中关闭窗体的实现
·hdsi2.0 sql注入部分抓包分析语句
·Borland Delphi 2005 下载

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

windows NT/2000读写物理，逻辑磁盘扇区

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

procedure TForm1.Button1Click(Sender: TObject);
var
hDriveHandle: THandle;
procedure TForm1.Button1Click(Sender: TObject);
const
BytesPerSector = 512;
SectorCount = 1; //读写扇区数
SectorStart = 0; //起始扇区数
drive = '\\.\C:'; //驱动盘
var
str: String;
p: PChar;
i: Cardinal;
begin
hDriveHandle := CreateFile(drive, GENERIC_ALL, FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
if (hDriveHandle <> INVALID_HANDLE_VALUE) then
begin
p := allocmem(SectorCount * ByteSPerSector);//p 必须是新申请的内存或全局变量，不能是局部变量
//定义为局部变量是不能读写磁盘的
FileSeek(hDriveHandle, SectorStart * BytesPerSector, 0); //起始扇区
if FileRead(hDriveHandle, p[0], SectorCount * BytesperSector)<> //读扇区
SectorCount * BytesperSector then
raise Exception.Create('Read Error!');
str :='';
for i := 0 to 512 - 1 do
begin
str := str + Format('%.2x', [integer(p[i])]);
if i mod 16 = 15 then
str := str + #13;
end;
ShowMessage(str);

FileSeek(hDriveHandle, SectorStart * BytesPerSector, 0); //起始扇区
if FileWrite(hDriveHandle, p[0], SectorCount * BytesperSector)<> //写扇区
SectorCount * BytesperSector then
raise Exception.Create('Write Error!');

FreeMem(p, SectorCount * BytesperSector);
Closehandle(hDriveHandle);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
const
BytesPerSector = 512;
SectorCount = 1; //读写扇区数
SectorStart = 0; //起始扇区数
drive = '\\.\PHYSICALDRIVE0'; //物理磁盘
var
str: String;
p: PChar;
i: Cardinal;
begin
hDriveHandle := CreateFile(drive, GENERIC_ALL, FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
if (hDriveHandle <> INVALID_HANDLE_VALUE) then
begin
p := allocmem(SectorCount * ByteSPerSector);//p 必须是新申请的内存或全局变量，不能是局部变量
//定义为局部变量是不能读写磁盘的
FileSeek(hDriveHandle, SectorStart * BytesPerSector, 0); //起始扇区
if FileRead(hDriveHandle, p[0], SectorCount * BytesperSector)<> //读扇区
SectorCount * BytesperSector then
raise Exception.Create('Read Error!');
str :='';
for i := 0 to 512 - 1 do
begin
str := str + Format('%.2x', [integer(p[i])]);
if i mod 16 = 15 then
str := str + #13;
end;
ShowMessage(str);

FileSeek(hDriveHandle, SectorStart * BytesPerSector, 0); //起始扇区
if FileWrite(hDriveHandle, p[0], SectorCount * BytesperSector)<> //写扇区
SectorCount * BytesperSector then
raise Exception.Create('Write Error!');

FreeMem(p, SectorCount * BytesperSector);
Closehandle(hDriveHandle);
end;
end;

相关文章：

相关软件：