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

相关阅读 >>

Delphi with do和for do语句

Delphi 检测url地址是否有效

Delphi 判断uefi与 legacy bios启动模式

最简单的Delphi驱动结束进程

Delphi superobject json操作类的基本用法

Delphi 得到文件创建时间,修改时间,访问时间

Delphi unigui确认对话框

Delphi 动态修改显示器分辨率

Delphi 利用datasnap进行数据流(tstream)的传递

Delphi通过代码实现模拟按键的函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...