怎样知道在delphi中查看到电脑的硬件信息？

Question

CSDN里有很多这样的讨论，呢只要用搜索的功能在Delphi版中查找一下关键词，就可以了！

Answer 1

这需要这方面的API，我也不清楚，回去好好查一下。

Answer 2

可以从注册表中取的 如:
procedure TForm1.Button1Click(Sender: TObject);
var
myreg:tregistry;
begin
     myreg:=tregistry.Create;
     syslist.Clear;
     myreg.RootKey:=HKEY_LOCAL_MACHINE;
     if myreg.OpenKey('Hardware\Description\System\CentralProcessor\0',true)
     then  begin
           if myreg.ValueExists('Identifier') then syslist.items.add('CPU 类型 : '+myreg.ReadString('Identifier')) else syslist.items.add('CPU类型    :未知');
           if myreg.ValueExists('VendorIdentifier') then syslist.items.add('CPU生产厂家: '+myreg.ReadString('VendorIdentifier'))else syslist.items.add('CPU生产厂家::未知');
           myreg.CloseKey;
0A     end;
end;
================================================================
学习中......