RSS订阅 | 匿名投稿
您的位置:网站首页 > 硬件 > 正文

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

作者:admin 来源: 日期:2018/1/15 19:54:51 人气: 标签:

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

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') ;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料