用DELPHI实现NT环境下的绝对磁盘读写

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

了解实模式编程的朋友都知道,可以利用BIOS的INT 13中断来进行磁盘的绝对读写,但在NT环境下,却不能使用INT 13中断来直接读写硬盘.在这里,我们可以利用CreateFile并将路径名设为"\.X:"来打开逻辑盘,并进行读写.在进里X为盘符.

CreateFile函数原型如下:

HANDLE CreateFile(LPCTSTR lpFileName, DWORD dwDesiredAccess, DWORD dwShareMode, LPSECURITY_ATTRIBUTES lpSecurityAttributes, DWORD dwCreationDistribution, DWORD dwFlagsAndAttributes, HANDLE hTemplateFile);

lpFileName: 要打开的文件的名字

dwDesiredAccess: 如果为 GENERIC_READ 表示允许对设备进行读访问;如果为 GENERIC_WRITE 表示允许对设备进行写访问(可组合使用);如果为零,表示只允许获取与一个设备有关的信息.

dwShareMode: 零表示不共享; FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允许对文件进行共享访问

lpSecurityAttributes: 指向一个SECURITY_ATTRIBUTES结构的指针,定义了文件的安全特性

dwCreationDistribution: 建立方式

dwFlagsAndAttributes: 其它属性

hTemplateFile: 如果不为零,则指定一个文件句柄。新文件将从这个文件中复制扩展属性

下面的例子在Windows XP下编译通过, 其实现的功能为读取C盘的引导扇区,并将读出的数据显示出来.

program ReadDisk;

uses

SysUtils,

Windows;

var

Buf: array [0..511] of Byte; //数据缓冲区

ShowText, TmpStr: string;

FileHandle: THandle;

ReadCount, i: Cardinal;

begin

//打开磁盘

FileHandle := CreateFile('\\.\C:', GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,

nil, OPEN_EXISTING, 0, 0);

if FileHandle = INVALID_HANDLE_VALUE then

begin

MessageBox(GetDesktopWindow, '打开磁盘失败', 'ERROR', MB_OK);

ExitProcess(0);

end;

//读出引导扇区数据

if ReadFile(FileHandle, Buf, 512, ReadCount, nil) then

begin

SetLength(ShowText, Length(Buf) * 3);

//将数据转为字串

for i := Low(Buf) to High(Buf) do

begin

TmpStr := Format('%2.2x ', [Buf[i]]);

CopyMemory(@ShowText[i*3+1], @TmpStr[1], 3);

end;

end;

MessageBox(GetDesktopWindow, PChar(ShowText), '引导扇区', MB_OK);

CloseHandle(FileHandle);

ExitProcess(0);

end.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航