社区
Delphi
帖子详情
如何获得硬盘的序列号?
djiang
2000-06-22 12:37:00
请问在DELPHI中如何获得硬盘的序列号?
...全文
262
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.0获取
硬盘
序列
号的代码
VB获取
硬盘
序列
号的代码VB获取
硬盘
序列
号的代码VB获取
硬盘
序列
号的代码VB获取
硬盘
序列
号的代码
VB6获取
硬盘
序列
号/CPU
序列
号/主板
序列
号
【源码】VB6.0获取
硬盘
序列
号、获取
硬盘
逻辑盘
序列
号、获取CPU
序列
号、获取主板
序列
号
引用api
获得
硬盘
序列
号.txt
引用api
获得
硬盘
序列
号
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章