- procedure TForm1.Button1Click(Sender: TObject);
- var
- mm:TRegistry;
- CPU:string;
- begin
- mm:=TRegistry.Create;
- with mm do
- begin
- RootKey:=HKEY_LOCAL_MACHINE;
- if OpenKeyReadOnly('\Hardware\Description\System\CentralProcessor\0') then
- begin
- CPU := ReadString('ProcessorNameString');
- Memo1.Lines.Add('处理器:'+CPU);
- end;
- end;
- Memo1.Lines.Add('系统版本:'+TOSVersion.ToString);
- end;
需要引用 System.Win.Registry 单元
来源: http://www.bubuko.com/infodetail-3007403.html