WEB开发网
开发学院软件开发Delphi 用DELPHI实现NT环境下的绝对磁盘读写 阅读

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

 2006-02-04 13:42:08 来源:WEB开发网   
核心提示: 了解实模式编程的朋友都知道,可以利用BIOS的INT 13中断来进行磁盘的绝对读写,但在NT环境下,却不能使用INT 13中断来直接读写硬盘.在这里,我们可以利用CreateFile并将路径名设为"\\.\X:"来打开逻辑盘,并进行读写.在进里X为盘符.CreateFile函数原型如下:HANDL
 

了解实模式编程的朋友都知道,可以利用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.

Tags:DELPHI 实现 NT

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接