光电工程师社区

标题: Delphi>>API>>获取磁盘的序列号 [打印本页]

作者: suncon 时间: 2003-5-7 19:38
标题: Delphi>>API>>获取磁盘的序列号
获取磁盘的序列号

可以使用Windows API函数GetVolumeInformation()

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

欢迎光临光电工程师社区 (http://bbs.oecr.com/)