delphi非常好的 取得硬件ID

4星(超过85%的资源)
所需积分/C币:50 2014-08-20 12:30:46 487KB ZIP
90
收藏 收藏
举报

delphi非常好用的获得硬件ID。 uses u_MD5, Windows, ShellApi, Classes, SysUtils; {$I u_Const.pas} {$IFDEF NEWVER} //for Delphi2009 or higher function GetDllVer:PAnsiChar; stdcall; export; function GetHardwareID(HDD, NIC, CPU, BIOS: LongBool): PAnsiChar; stdcall; export; function GetHardwareID_vba(HDD, NIC, CPU, BIOS: LongBool; RegCode: PAnsiChar; retHardwareID: PAnsiChar): Integer; stdcall; export; function GetHardwareIDWithAppID(AppID: PAnsiChar; HDD, NIC, CPU, BIOS: LongBool): PAnsiChar; stdcall; export; function GetHardwareIDWithAppID_vba(AppID: PAnsiChar; HDD, NIC, CPU, BIOS: LongBool; RegCode: PAnsiChar; retHardwareID: PAnsiChar): Integer; stdcall; export; {$ELSE} //for delphi7/6/5 function GetDllVer:PChar; stdcall; export; function GetHardwareID(HDD, NIC, CPU, BIOS: LongBool): PChar; stdcall; export; function GetHardwareID_vba(HDD, NIC, CPU, BIOS: LongBool; RegCode: PChar; retHardwareID: PChar): Integer; stdcall; export; function GetHardwareIDWithAppID(AppID: PChar; HDD, NIC, CPU, BIOS: LongBool): PChar; stdcall; export; function GetHardwareIDWithAppID_vba(AppID: PChar; HDD, NIC, CPU, BIOS: LongBool; RegCode: PChar; retHardwareID: PChar): Integer; stdcall; export; {$ENDIF}

...展开详情
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
vx_xtfnpgy delphi7用不了,提示缺少UnitIoctl这个单元
2018-01-11
回复
xuyindun8822 不是很好用
2017-10-06
回复
cjwrzq2000 delphi非常好用的获得硬件ID
2016-10-10
回复
quida 可以,可惜取不了U盘的序列号
2016-09-21
回复
无思无情 不能用。不要下载。
2016-04-07
回复
jacksonxie 非常好用,给力,谢谢!
2016-03-19
回复
gear1023 VERY VERY,非常好用,带源码,XE7除了MAC不能用外都还不错。
2015-07-24
回复
ijong 可用, 能读取cpu的id.
2015-07-17
回复
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
关注 私信
上传资源赚钱or赚积分
最新推荐
delphi非常好的 取得硬件ID 50积分/C币 立即下载
1/0