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

本文整理自网络，侵删。

 {获得磁盘驱动器序列号} 
function Get_HD_Serial(const Drivedir: ｃｈａｒ): string; var   Nu: DWORD;   Vf: DWORD;   VolumeInfo: array[0..MAX_PATH] of ｃｈａｒ;   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') ; 

相关阅读 >>

Delphi跨平台的字符串代码标准

Delphi 遍历目录

Delphi 如何将颜色值转换为灰度颜色值？

Delphi xe5开发的android手机截屏功能

Delphi程序版本信息设置说明

Delphi 在单独线程中运行窗体

Delphi获取dos命令行输出函数 运行cmd命令并获取结果

Delphi now 返回当前日期及时间

Delphi 判断端口(port)是否被占用

Delphi webbrowser载入自定义html内容并显示

更多相关阅读请进入《Delphi》频道 >>