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