DELPHI下如何读取磁盘扇区??? 在DELPHI下如何读取磁盘扇区?求高手解释一下,最好有一个例子,谢谢了??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 NT/2000/XP下通过DeviceIOControl的API可以实现以VC版的最多见,Delphi的少见,但都可以的 参考如下文章。了解实模式编程的朋友都知道,可以利用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. 考勤刷卡资料报表问题 为什么applicaitong.messagebox 显示的消息不弹出到最前面? 请问大侠,D7里有没有Tnmpop3,Tnmsmtp 控件? 如何实现这样的问题? 关于摄像头 300 分 求一个简单功能。 win2000+sql的两台机子之间实时备份问题??? 特急,忘了这个函数 一个小问题,help me! 你认为可能很简单的数据表问题? 应该不太难,但好多天没有答案!,请在进来看看! 求取出第40-10000记录的SQL语句
以VC版的最多见,Delphi的少见,但都可以的
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.