delphi Get_HD_Serial() 获得磁盘驱动器序列号

{获得磁盘驱动器序列号}

function Get_HD_Serial(const Drivedir: Char): string;

var

Nu: DWORD;

Vf: DWORD;

VolumeInfo: array[0..MAX_PATH] of Char;

V_n: DWORD;

begin

GetVolumeInformation(PChar(Drivedir + ':\'), nil, SizeOf(VolumeInfo), @V_n,Nu, Vf, nil, 0);

Result := Format('%x-%x',[HiWord(V_n),LoWord(V_n)]);

// Result := Format('%8.0X', [V_n])

end;

//格式化硬盘卷标ID号会改变

调用

Caption:=Get_HD_Serial('c') ;

联系电话：

020-00000000

联系电话：

020-00000000

联系电话：

020-12345678