delphi

delphi怎么获取硬盘序列号

小亿
510
2023-11-16 09:30:42
栏目: 编程语言
开发者专用服务器限时活动,0元免费领! 查看>>

在Delphi中,可以使用GetVolumeInformation函数来获取硬盘的序列号。以下是一个示例代码:

uses
  Windows, SysUtils;

function GetHardDiskSerialNumber: string;
var
  VolumeSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
  FileSystemFlags: DWORD;
  SerialNumber: string;
begin
  SetLength(SerialNumber, MAX_PATH);
  GetVolumeInformation('C:\', nil, 0, @VolumeSerialNumber,
    MaximumComponentLength, FileSystemFlags, nil, 0);
  SerialNumber := IntToHex(VolumeSerialNumber, 8);
  Result := SerialNumber;
end;

// 示例使用
procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNumber: string;
begin
  SerialNumber := GetHardDiskSerialNumber;
  ShowMessage('硬盘序列号:' + SerialNumber);
end;

在上面的示例中,GetVolumeInformation函数用于获取指定硬盘的信息,其中'C:\'是硬盘的根目录路径,可以根据实际情况进行修改。VolumeSerialNumber为输出参数,用于接收硬盘的序列号。最后使用IntToHex函数将序列号转换为十六进制字符串。

亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

相关推荐:java怎么获取硬盘序列号

0
看了该问题的人还看了