社区
Delphi
帖子详情
如何获得硬盘的序列号?
djiang
2000-06-22 12:37:00
请问在DELPHI中如何获得硬盘的序列号?
...全文
258
4
打赏
收藏
如何获得硬盘的序列号?
请问在DELPHI中如何获得硬盘的序列号?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wang1st
2000-11-27
打赏
举报
回复
编VXD可解决问题
我编了一个,要的话去我主页留言
http://hotstore.yeah.net
potato
2000-06-22
打赏
举报
回复
我也想知道。
zxghl
2000-06-22
打赏
举报
回复
加密么?有API函数,我做过,不过这时候记不清了,有兴趣可以和我联系。
不过提醒你硬盘和软盘格式化后,系列号是随机分配的!
ZXGHL@NETEASE.COM
至于硬盘的OEM信息,没试过,谁知道通知一下。
盘谷
2000-06-22
打赏
举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum: DWord;
A, B: DWord;
VolumeSerialNumber: string ;
Key: string ;
begin
Key:='';
if GetVolumeInformation(PChar('C:\'),
Nil, 0, @SerialNum, A, B, Nil, 0) then
VolumeSerialNumber := IntToHex(HiWord(SerialNum), 4) +
IntToHex(LoWord(SerialNum), 4);
Key := VolumeSerialNumber ;
Label1.Caption := Key ;
end;
得到C盘的序列号,记得给分,我比较烦别人不给分,因为我的分快没了!
获取
硬盘
物理
序列号
获得
唯一
硬盘
序列号
唯一标识 纯API方法,没有DLL,没有控件,另外给出了WMI方法的结果作为比较
1.VB.NET 2008开发环境的工程文件,纯API方法获取
硬盘
物理
序列号
,也就是所谓全球唯一标识的号,通常用这个号作为软件注册的唯一标识;写到一个函数中,非常方便移植代码! 2.使用说明:打开程序后,点按钮后,三个TEXTBOX分别显示全球唯一标识的
硬盘
物理
序列号
、WMI方法获取的
硬盘
序列号
、WMI方法获取的CPU
序列号
3.WMI方法被很多人诟病,有说读不出来什么的,我测试了几台机器确实有读不出来的,结果为0;WMI获取CPU
序列号
速度比较慢,有将近1秒的延时。 4.总之,大家根据自己需求移植代码。 5.谢谢支持。
Delphi在下获取
硬盘
序列号
Delphi在Win9xNT下获取
硬盘
物理
序列号
VB6获取
硬盘
序列号
/CPU
序列号
/主板
序列号
【源码】VB6.0获取
硬盘
序列号
、获取
硬盘
逻辑盘
序列号
、获取CPU
序列号
、获取主板
序列号
引用api
获得
硬盘
序列号
.txt
引用api
获得
硬盘
序列号
ASP编程
获得
硬盘
序列号
ASP编程
获得
硬盘
序列号
,很不错的一段代码,值得大家珍藏
Delphi
5,388
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章