如何使用Delphi从USB存储设备读取原始块？

发布时间：2020-12-15 04:32:09 所属栏目：大数据来源：网络整理

导读：我正在处理包含专有文件系统的USB存储设备.因此,我需要读取这些设备的512字节块来实现此文件系统的查看器. 我该怎么办呢？使用Delphi有一些材料吗？解决方法我讨厌组件所以这里是一些代码 var RawMBR : array [0..511] of byte; btsIO : DWORD; begin hDev

我正在处理包含专有文件系统的USB存储设备.因此,我需要读取这些设备的512字节块来实现此文件系统的查看器.

我该怎么办呢？使用Delphi有一些材料吗？

解决方法

我讨厌组件所以这里是一些代码

var 
    RawMBR : array [0..511] of byte;
    btsIO  : DWORD;
 begin
  hDevice := CreateFile('.PHYSICALDRIVE1',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0);
    if hDevice <> INVALID_HANDLE_VALUE then
    begin
      SetFilePointer(hDevice,512 * 0,FILE_BEGIN); // replace 0 with sector that you wish to read
      ReadFile(hDevice,RawMBR[0],512,btsIO,nil);
      CloseHandle(hDevice);
    end;
  end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!