delphi 10.2 取硬盘id

在 Delphi 10.2 中，可以通过使用 Windows API 来获取硬盘驱动器的唯一标识符。

要完成这个任务，可以使用 GetVolumeInformation 函数来获取硬盘驱动器的信息。首先，需要声明一些变量：

var
Drive: String; // 驱动器的字母（如：C，D，E等）
SerialNumber: DWORD; // 硬盘驱动器的序列号
MaxFilenameLength: DWORD; // 最大文件名长度
FileSystemFlags: DWORD; // 文件系统标识符
FilesystemName: PChar; // 文件系统名称
VolumeName: PChar; // 驱动器的卷标名称

然后，可以使用如下代码来获取硬盘驱动器的信息：

Drive := 'C:\'; // 更改为您想要获取的驱动器的路径

if GetVolumeInformation(PChar(Drive), VolumeName, MAX_PATH, @SerialNumber, MaxFilenameLength, FileSystemFlags, FilesystemName, MAX_PATH) then
begin
ShowMessage('硬盘驱动器的序列号是：' + IntToStr(SerialNumber));
end
else
begin
ShowMessage('获取硬盘驱动器信息失败！');
end

以上代码将获取指定驱动器的序列号，并显示在消息框中。请注意，如果驱动器无法获取信息，则会显示相应的错误消息。

希望上述回答对您有所帮助！