如何使用CreateFile访问物理磁盘？

Question

我在 Lazarus 编程论坛上询问如何打开物理磁盘。我想允许用户在单击“选择磁盘”按钮时从系统中选择物理磁盘。 Stack Overflow 上有一些类似但不完全相同的示例（例如 Delphi - 使用 DeviceIoControl 传递 IOCTL_DISK_GET_LENGTH_INFO 来获取闪存介质物理大小（不是分区））。

有很多使用 CreateFile 的 C 和 C++ 示例 (在文档中，尤其是调用 DeviceIoControl 的示例），但我找不到 Free Pascal 或 Delphi 的任何内容，而且我还不够好，无法弄清楚如何做到这一点。

谁能给我指出一个解释它的链接的方向，或者更好的是用 Delphi 或 Free Pascal 编写的实际示例？谁能帮助我了解如何使用它？

Answer 1

您的 C 示例具有以下代码：

/* LPWSTR wszPath */

hDevice = CreateFileW(wszPath,          // drive to open
                      0,                // no access to the drive
                      FILE_SHARE_READ | // share mode
                      FILE_SHARE_WRITE, 
                      NULL,             // default security attributes
                      OPEN_EXISTING,    // disposition
                      0,                // file attributes
                      NULL);            // do not copy file attributes

将函数调用转换为 Delphi 只需更改语法即可：

// wszPath: PWideChar

hDevice := CreateFileW(wszPath,
                       0,
                       FILE_SHARE_READ or
                       FILE_SHARE_WRITE,
                       nil,
                       OPEN_EXISTING,
                       0,
                       0);

也就是说，使用 := 进行赋值，使用 or 组合位标志, nil 表示空指针，0 表示空文件句柄。

该函数的调用方式如下：

#define wszDrive L"\\\\.\\PhysicalDrive0"

DISK_GEOMETRY pdg = { 0 }; // disk drive geometry structure

bResult = GetDriveGeometry (wszDrive, &pdg);

再次，只需将语法更改为 Delphi：

const wszDrive = '\\.\PhysicalDrive0';

var pdg: DISK_GEOMETRY;

ZeroMemory(@pdg, SizeOf(pdg));
bResult := GetDriveGeometry(wszDrive, @pdg);

Delphi 无类型字符串常量会自动成为它们在上下文中需要的任何类型，因此我们不需要像 C 使用的任何 L 前缀。反斜杠在 Delphi 中并不特殊，因此不需要转义它们。 Delphi 不允许在声明中初始化局部变量，因此我们使用 ZeroMemory 将所有内容设置为零。使用 @ 而不是 & 来获取指向变量的指针。