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') ;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步