delphi xe 取CPU等硬件信息

  uses HardWareInfopas  {引用自定义单元，文件见附件}

procedure TForm1Button1Click(Sender: TObject);

var

  CPUinfo:TCPU_info;       //定义CPU对象

  Diskinfo:TDisk_info;     //硬盘

  Memoryinfo:TMemory_info; //内存

  NICinfo:TNIC_info;       //网卡

  VGAinfo:TVGA_info;        //显卡

begin

  //创建实例

  CPUinfo:=TCPU_infoCreate;

  Diskinfo:=TDisk_infoCreate;

  Memoryinfo:=TMemory_infoCreate;

  NICinfo:=TNIC_infoCreate;

  VGAinfo:=TVGA_infoCreate;

  //显示硬件信息

  memo1LinesAdd('CPU');

  memo1LinesAdd('制造商: '+CPUinfoGetCpuFactory);

  memo1LinesAdd('型号:   '+CPUinfoGetCpuModel);

  memo1LinesAdd('个数:   '+CPUinfoGetCPUCount);

  memo1LinesAdd('硬盘');

  memo1LinesAdd(Diskinfoprint_diskinfo);

  memo1LinesAdd('内存');

  memo1LinesAdd(MemoryinfoGetMemorysize);

  memo1LinesAdd(MemoryinfoGetvirtualmemory);

  memo1LinesAdd(MemoryinfoGetusingMemory);

  memo1LinesAdd('网卡');

  memo1LinesAdd('序列号: '+NICinfoGetNICID);

  memo1LinesAdd('本地IP: '+NICinfoGetLocalIP);

  memo1LinesAdd('MAC地址: '+NICinfoGetMAC);

  memo1LinesAdd('显卡');

  memo1LinesAdd(VGAinfoprintf_VGAinfo);

end;

1有时候显示的是十几位。有时候显示的是九位

是因为每个硬盘的序列号是不一样的有的有可能还不超过8位。

2我只想要后面的八位数。应该怎么写？

需要引用 strutils单元;

edit2Text:=rightStr(edit1text,8);

>

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

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

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

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

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

以上就是关于delphi xe 取CPU等硬件信息全部的内容，包括:delphi xe 取CPU等硬件信息、DELPHI,截取字符串，截取硬盘序列号的后八位、高分求DELPHI 下取多核CPU ID，硬盘的序号，该怎么处理等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！