Delphi 10.3版本获取windows系统版本和CPU信息
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单元
- 上一篇 »linux系统相关、硬件、资源 - 相关命令
- 下一篇 »linux 系统信息常用命令