delphi读硬盘序列号控件_delphi 7序列号

1.DELPHI怎么根据注册码写KEY

2.在Delphi7中，我怎样才能找回硬盘唯一的序列号

3.delphi 获取主板唯一的ID信息以此来标识远程客户端。想问一下怎么获取这个I

4.delphi xe 取CPU等硬件信息

5.高分求DELPHI 下取多核CPU ID，硬盘的序号，该怎么处理

硬盘序列号读取工具 是一款硬盘序列号查询软件，可以帮助用户对自己的电脑硬盘进行查询，通过查询序列号可以知道硬盘的生产日期、使用情况、硬盘真等等信息，是一款必备的软件。尤其是电脑刚买时，可以通过软件进行查询，方便与包装壳系列号对比辨别硬盘真伪。硬盘序列号查询工具支持win7、win8等主流操作系统。

硬盘出厂序列号在全球都是唯一的，jyDisk.DLL是一个标准的Windows动态链接库，它能够让您在你的程序中简单地获取硬盘出厂序列号。hsjDisk.DLL可以应用于各种流行的开发语言，比如Delphi,C++Builder,C#,VisualC++,VisualBasic,VisualBasic.NET,PowerBuilder等，示例为delphi7调用代码。

在我们购买硬盘时，通常在硬盘上面的

标签上都会有硬盘序列号。

但如果对于笔记本，硬盘都是安装在笔记本内部的，而且由于有质保标签我们不能拆开查看。这时，就需要用硬盘序列号查询工具最新版来帮助得到序列号。

这款硬盘序列号读取工具，就能帮您快速查询硬盘序列号。绿色单文件版，方便快捷。

1、硬盘序列号查询工具最新版界面简洁，操作简单。

2、绿色软件，无需安装。

3、小软件不占用系统，提高工作效率。

DELPHI怎么根据注册码写KEY

这个问题让我来回答你吧，因为我用delphi7做这个有八九年历史了，一直用硬件序列号进行加密注册，所以还是有发言权的。又因为不要你的分数，所以就懒得登陆了。不过，答案你也会有点点失望，因为我没能解决你的问题。

先说说主板吧，如果你是想做软件加密，这个你就死了心吧，因为主板的Bios没有统一格式，而且Bios版本不同，所用的存储格式也不尽相同，所以，你即使今天把获取市面上的所有主板序列号的函数都写好了，明天出新的主板，你的函数照样识别不了，获取主板序列号就失败了。

那么什么最稳定呢？答案是硬盘序列号。其他那些什么网卡MAC、CPU序列号等等等等，都是不行的。只有硬盘序列号最稳定，几乎百分百成功，而且在VISTA和Win7下面不需要管理员权限都可以获取到。但是，硬盘种类也不少，比如有IDE的，有SATA一代、二代的，有SCSI的，要针对每种硬盘写对应的函数，这个工作量也不小。正因为这样，这种函数大多被做成了dll，商业出售。换句话说，你想用得专业，就请购买。因为人家专门研究这个，肯定也是要吃饭的。天下没有免费午餐的，即使有，也是不容易消化的。

在Delphi7中，我怎样才能找回硬盘唯一的序列号

这个可以通过查询使用者的硬盘序列号来实现，

1，读取硬盘序列号（网上找一下，很多的），通过算法进行数值转换，懒的话，直接搜一个MD5转换，转成一个特殊的字符串，这个就是注册码，这些是放在程序内部来判断的。

实现注册码的方法：软件给客户用上，会自动读取硬盘序列号，并显示在软件上，要求把这个号给开发者，如果授权，开发者把这个序列号通过数值转换成注册码发给客户，客户输入后，程序自动判断，如果一致就说明注册成功。

大体上就是这样，但实现的办法千变万化，你可以直接用MD5或是自己弄一个，或是用客户发给你的硬盘序列号中间的一部份来转换

delphi 获取主板唯一的ID信息以此来标识远程客户端。想问一下怎么获取这个I

什么叫做找回键盘的唯一序列号？ 你是说获取你输入的键盘内容，或者是输入键盘内容的键值？

每个键盘值都有他唯一的键值，你可以在OnKeyDown显示输入的key的键值：ShowMessage(IntToStr(key));

如果是要找输入的内容就在OnKeyPress里显示Key，

如果外部需要key的值，则可以用函数或过程传值。

不知道是不是你要的答案，希望可以帮助你。

delphi xe 取CPU等硬件信息

获取主板Bios信息 添加一个Tbutton和一个Tmemo组件到窗体并写如下代码到按钮的OnClick事宜： with Memo1.Lines do begin Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061)))); Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5)))); Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091)))); Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71)))); 以上代码在Win9X上运行经由过程。 end; _____________________________________________________网上找的

高分求DELPHI 下取多核CPU ID，硬盘的序号，该怎么处理

uses?HardWareInfo.pas?{引用自定义单元，文件见附件}

procedure?TForm1.Button1Click(Sender:?TObject);

var

CPUinfo:TCPU_info;//定义CPU对象

Diskinfo:TDisk_info;?//硬盘

Memoryinfo:TMemory_info;?//内存

NICinfo:TNIC_info;//网卡

VGAinfo:TVGA_info;//显卡

begin

//创建实例

CPUinfo:=TCPU_info.Create;

Diskinfo:=TDisk_info.Create;

Memoryinfo:=TMemory_info.Create;

NICinfo:=TNIC_info.Create;

VGAinfo:=TVGA_info.Create;

//显示硬件信息

memo1.Lines.Add('********************CPU*************************');

memo1.Lines.Add('制造商:?'+CPUinfo.GetCpuFactory);

memo1.Lines.Add('型号:'+CPUinfo.GetCpuModel);

memo1.Lines.Add('个数:'+CPUinfo.GetCPUCount);

memo1.Lines.Add('********************硬盘*************************');

memo1.Lines.Add(Diskinfo.print_diskinfo);

memo1.Lines.Add('********************内存*************************');

memo1.Lines.Add(Memoryinfo.GetMemorysize);

memo1.Lines.Add(Memoryinfo.Getvirtualmemory);

memo1.Lines.Add(Memoryinfo.GetusingMemory);

memo1.Lines.Add('********************网卡*************************');

memo1.Lines.Add('序列号:?'+NICinfo.GetNICID);

memo1.Lines.Add('本地IP:?'+NICinfo.GetLocalIP);

memo1.Lines.Add('MAC地址:?'+NICinfo.GetMAC);

memo1.Lines.Add('********************显卡*************************');

memo1.Lines.Add(VGAinfo.printf_VGAinfo);

end;

://m.blog.csdn.net/article/details?id=8545673

把这个文章的类，加入你的工程，创建对象后，用GetCPUIDstr来获取，默认是第一个内核，更改GetCPUIDstr这个成员函数里边setcpu的参数可以获取别的核