Delphi>>API>>获取磁盘的序列号

获取磁盘的序列号


可以使用Windows API函数GetVolumeInformation()

procedure TForm1.Button1Click(Sender: TObject)&#59;
var
VolumeSerialNumber : DWORD&#59;
MaximumComponentLength : DWORD&#59;
FileSystemFlags : DWORD&#59;
SerialNumber : string&#59;
begin
GetVolumeInformation(’C:\’,
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0)&#59;
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
’-’ +
IntToHex(LoWord(VolumeSerialNumber), 4)&#59;
Memo1.Lines.Add(SerialNumber)&#59;
end&#59;