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

Question

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

我该怎么办？有没有一些使用 Delphi 的 Material ？

Answer 1

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

 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, 0);
    if hDevice <> INVALID_HANDLE_VALUE then
    begin
      SetFilePointer(hDevice,512 * 0,nil,FILE_BEGIN); // replace 0 with sector that you wish to read
      ReadFile(hDevice, RawMBR[0], 512, btsIO, nil);
      CloseHandle(hDevice);
    end;
  end;