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

前端之家收集整理的这篇文章主要介绍了如何使用Delphi从USB存储设备读取原始块?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在处理包含专有文件系统的USB存储设备.因此,我需要读取这些设备的512字节块来实现此文件系统的查看器.

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

解决方法

我讨厌组件所以这里是一些代码
  1. var
  2. RawMBR : array [0..511] of byte;
  3. btsIO : DWORD;
  4. begin
  5. hDevice := CreateFile('\\.\PHYSICALDRIVE1',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,0);
  6. if hDevice <> INVALID_HANDLE_VALUE then
  7. begin
  8. SetFilePointer(hDevice,512 * 0,FILE_BEGIN); // replace 0 with sector that you wish to read
  9. ReadFile(hDevice,RawMBR[0],512,btsIO,nil);
  10. CloseHandle(hDevice);
  11. end;
  12. end;

猜你在找的Delphi相关文章