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 用文件流读取文本文件字符串的方法

Delphi 图像旋转90° 反旋转90°

Delphi读取文本文件的最后一行

Delphi中url的汉字编码

Delphi中使用可修改的常量

Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误

Delphi xe10 对 json的解析应用

Delphi 创建win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

Delphi 播放声音 建议采用 异步方式，比较流畅

Delphi xe7android应用启用蓝牙

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

转载请注明出处：木庄网络博客 » delphi Get_HD_Serial() 获得磁盘驱动器序列号