与 CreateFile Handle 相关的 512 字节数组中的值的 IntToHex 总是返回相同的输出？ FreePascal\Delphi 语法。

Question

长话短说，我的程序允许对事物进行哈希处理。它目前缺乏的一件事是 Windows 版本中散列物理磁盘的能力（Linux 版本允许用户选择 /dev/sda 等）。

我创建了一个按钮，单击该按钮时，会列出连接的设备，给我“\.\PHYSICALDISKX”（感谢 SO 用户回复我之前的帖子的建议）。然后，当用户双击该值时，我可以将该值传递给 Windows API 函数 CreateFile，以创建它的句柄作为 ListBox 双击事件。所以我已经完成了所有这些。下面的代码参考。

但是，我想检查我建立的 CreateFile 句柄是否正在工作 - if 语句表明它正在工作，但我需要检查我是否可以实际读取数据以传递给我的其他函数。为了测试这一点，我尝试读取任何给定磁盘的前 512 个字节，并“quickyl”将其显示在备忘录框中。然而，我一生都无法弄清楚为什么我的输出不正确，但事实确实如此。我得到一些十六进制值，但它们与前 512 字节中存在的十六进制值不同。而且无论我查看哪个磁盘，它们始终是相同的十六进制值列表！所以我不知道这些值从哪里来，也不知道为什么它们总是相同的。整个想法是让我检查我的句柄是否正常，并且我实际上可以从磁盘读取数据，然后传递给我的哈希函数。

谁能看出我哪里出了问题吗？

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
   listBox : TListBox;
   index   : Integer;
   hDiskToHash, i : integer;
   DiskHashValue, DiskToHashFileName, TmpStr : string;
   RawMBR : array [0..511] of byte;
   bytesread : DWORD;
 begin
   i := 0;
   // Cast the passed object to its correct type
   listBox := TListBox(Sender);

   // Get the index of the selected list item
   index   := listBox.ItemIndex;

   // Display the selected list item value
   ShowMessage(listBox.Items[index]);

   // sValue1 is a global variable containing string '\\.\PHYSICALDISKX', populated by procedure TForm1.GetWin32_DiskDriveInfo;
   hDiskToHash := Windows.CreateFile(PChar(sValue1), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_RANDOM_ACCESS, 0);
   if hDiskToHash <> INVALID_HANDLE_VALUE then
   begin
      SetFilePointer(hDiskToHash,512 * 0,nil,FILE_BEGIN); // replace 0 with sector that you wish to read
      ReadFile(hDiskToHash, RawMBR[0], SizeOf(RawMBR), bytesread, nil);
      for i := Low(RawMBR) to High(RawMBR) do
        begin
        Memo2.Lines.Add(IntToHex(RawMBR[i],2)); // Add each hex byte on a new line
        end;
      CloseHandle(hDiskToHash);
   end
   else
   begin
    ShowMessage('Failed to open '+sValue1);
   end;
 end; 

Answer 1

您运行的是哪个版本的 Windows？ CreateFile() 文档指出：

对磁盘或卷的直接访问受到限制。了解更多
信息，请参阅“对文件系统和存储堆栈的更改
限制 Windows 中的直接磁盘访问和直接卷访问
Vista 和 Windows Server 2008 中的“帮助和支持知识”
基地位于http://support.microsoft.com/kb/942448。

话虽如此，试试这个：

procedure TForm1.ListBox1DblClick(Sender: TObject); 
var 
  listBox : TListBox; 
  index   : Integer; 
  hDiskToHash: THandle;
  i : integer; 
  RawMBR : array [0..511] of Byte; 
  Offset, BytesRead : DWORD; 
begin 
  // Cast the passed object to its correct type 
  listBox := TListBox(Sender); 

  // Get the index of the selected list item 
  index := listBox.ItemIndex; 
  if index = -1 then Exit;

  // Display the selected list item value 
  ShowMessage(listBox.Items[index]); 

  // sValue1 is a global variable containing string '\\.\PHYSICALDISKX',
  // populated by procedure TForm1.GetWin32_DiskDriveInfo; 
  hDiskToHash := Windows.CreateFile(PChar(sValue1), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_RANDOM_ACCESS, 0); 
  if hDiskToHash = INVALID_HANDLE_VALUE then RaiseLastOSError;
  try
    Offset := 512 * 0; // replace 0 with sector that you wish to read 

    if (SetFilePointer(hDiskToHash, Offset, nil, FILE_BEGIN) <> Offset) then raise Exception.Create("Did not seek to sector 0 correctly!");

    if not ReadFile(hDiskToHash, RawMBR[0], SizeOf(RawMBR), BytesRead, nil) then RaiseLastOSError;
    if BytesRead <> SizeOf(RawMBR) then raise Exception.Create("Did not read the full MBR!");

    for i := 0 to BytesRead-1 do 
    begin 
      Memo2.Lines.Add(IntToHex(RawMBR[i], 2)); // Add each hex byte on a new line 
    end; 
  finally
    CloseHandle(hDiskToHash); 
  end;
end;