社区
Delphi
帖子详情
如何获得硬盘的序列号?
djiang
2000-06-22 12:37:00
请问在DELPHI中如何获得硬盘的序列号?
...全文
260
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下获取
硬盘
物理
序列
号
像TED演讲:如何做一个一份优秀的PPT
本课程从6各方面教如何去做PPT,分别是PPT内容结构、排版样式、数据化表达、字体和封面设计、演讲思路。01像TED演讲:PPT制作者如何构建图能画意的视觉表达?02像TED演讲:如何构建吸引注意力的演示结构03像TED演讲:如何精简提炼密密麻麻的文字,让听众更懂你的意图04像TED演讲:如何借助PPT背景聚焦听众的注意力?05像TED演讲:如何使用字体给PPT增添一道灵光?06像TED演讲:如何给PPT使用应景的色彩?07像TED演讲:如何让你的排版设计像美食样色香味俱全?08像TED演讲:如何让排版设计清新脱俗?09像TED演讲:如何做出合理的排版设计?010像TED演讲:如何使用蒙版增强PPT的美感?011像TED演讲:如何设计大气磅礴的封面形象?
VB6.0获取
硬盘
序列
号的代码
VB获取
硬盘
序列
号的代码VB获取
硬盘
序列
号的代码VB获取
硬盘
序列
号的代码VB获取
硬盘
序列
号的代码
VB6获取
硬盘
序列
号/CPU
序列
号/主板
序列
号
【源码】VB6.0获取
硬盘
序列
号、获取
硬盘
逻辑盘
序列
号、获取CPU
序列
号、获取主板
序列
号
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章