| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2017/9/20 10:48:25 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 要读取电脑的唯一序号,现在用哪一个设备的可靠啊？ 用来软件注册使用的 硬盘？ CPU？BIOS？ MAC？ 有代码或者控件共享吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/9/20 11:08:14 | ||||
| 1楼： | http://offeu.com/www/index_id_167.html ---------------------------------------------- 博客 - http://offeu.com 脚本模型 - http://webpascal.com 需要短信接口的请联系我，可发行业与营销内容。 |
|||||
| 作者： |
|
2017/9/21 12:11:58 | ||||
| 2楼： | 漂亮，谢谢。 ---------------------------------------------- 菩提本无树，明镜亦非台，本来无一物，何处惹尘埃 |
|||||
| 作者： |
|
2017/9/22 10:47:20 | ||||
| 3楼： | 厉害了我的哥 ---------------------------------------------- ^_^ |
|||||
| 作者： |
|
2017/9/22 11:05:33 | ||||
| 4楼： | 厉害了我的5阿哥... ---------------------------------------------- kittyapp |
|||||
| 作者： |
|
2017/9/25 9:19:08 | ||||
| 5楼： | http://www.dxmylove.com/download/jyharddisk.zip 硬盘序列号dll/sdk ---------------------------------------------- qq:171833017,靖源软件http://www.dxmylove.com |
|||||
| 作者： |
|
2017/9/25 13:33:50 | ||||
| 6楼： | unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls; type TForm1 = class(TForm) CornerButton1: TCornerButton; procedure CornerButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} uses ActiveX, ComObj; var FSWbemLocator: OLEVariant; FWMIService: OLEVariant; function GetWMIstring(const WMIClass, WMIProperty: string): string; const wbemFlagForwardOnly = $00000020; var FWbemObjectSet: OLEVariant; FWbemObject: OLEVariant; oEnum: IEnumvariant; iValue: LongWord; begin; Result := ''; FWbemObjectSet := FWMIService.ExecQuery(Format('Select %s from %s', [WMIProperty, WMIClass]), 'WQL', wbemFlagForwardOnly); oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumvariant; if oEnum.Next(1, FWbemObject, iValue) = 0 then if not VarIsNull(FWbemObject.Properties_.Item(WMIProperty).Value) then Result := FWbemObject.Properties_.Item(WMIProperty).Value; FWbemObject := Unassigned; end; procedure TForm1.CornerButton1Click(Sender: TObject); var x: string; Y: string; begin FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', ''); x := GetWMIstring('Win32_BIOS', 'SerialNumber'); Y := GetWMIstring('Win32_PhysicalMedia', 'SerialNumber'); ShowMessage('BIOS:'+x + #10#13+'PhysicalMedia:' + Y); end; end. ---------------------------------------------- Delphi 的移动程序开发，是您不可再错失的机遇：http://blog.163.com/you888@188/blog/static/6723961920169319529515/ |
|||||
| 作者： |
|
2017/9/25 13:35:47 | ||||
| 7楼： | 用之前最好亲自所有操作系统测试一下。 cpu的加硬盘的应该够用了。 是好东西一定会被破解的，只能是防君子不防小人。没有必要太折腾加密。就像Delphi一样。 Delphi手机通用界面设计源码低价出售（跨平台：Windows，mac，ios，android都可以用），让你一步跨入主流软件界面境界。购买后即刻使用，哪里需要拷哪里。买过的都说好。2年的设计经验，让你即刻掌握。提供热腾腾的源码。详情:  http://blog.163.com/you888@188/blog/static/6723961920159271412582 ;;购买地址： https://item.taobao.com/item.htm?id=522707335329 ;请拍下后旺旺留言，一定要留下QQ号。谢谢。 内容持续增加中，欢迎了解，欢迎购买； 没有使用任何第三方控件，本demo提供所有源码，毫无保留； 购买后加入一个售后群，会有不定期更新； 绝对物超所值； 大部分都可以窗口级引用，再稍微修改就变成你的了； 快速界面设计素材，非它莫属啊； 全是delphi原生控件实现，您基本不用担心升级问题。 QQ120180714联系我。 ---------------------------------------------- Delphi 的移动程序开发，是您不可再错失的机遇：http://blog.163.com/you888@188/blog/static/6723961920169319529515/ |
|||||
| 作者： |
|
2017/9/25 19:42:58 | ||||
| 8楼： | http://blog.163.com/you888@188/blog/static/6723961920159271412582/ ---------------------------------------------- Delphi 的移动程序开发，是您不可再错失的机遇：http://blog.163.com/you888@188/blog/static/6723961920169319529515/ |
|||||
| 信息 |
| 登陆以后才能回复 |
