https://dl.downloadly.ir/Files/Software/MiTeC_System_Information_X_4.5.0_Downloadly.ir.rar
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
谢谢!转存: MiTeC System Information X 4.5.0.zip (访问密码:2ccc)
----------------------------------------------
http://down.desei.com.cn/down/1041485/MyWeb/VCLs.html
MiTec HELP This code fragment demonstrates how to read Processor version string (10h) and Core count (23h) from SMBIOS table Processor Information (Type 4).
var SMBIOS: TMiTeC_SMBIOS; idx: integer; p: cardinal; v,sl: Byte; s: string; begin SMBIOS:=TMiTeC_SMBIOS.Create(nil); try SMBIOS.ReadLocalMemory:=True; SMBIOS.RefreshData; idx:=SMBIOS.FindTableIndex(SMB_CPU,SMBIOS.StructTables); if idx>-1 then repeat p:=SMBIOS.StructTables[idx].Address; if (p>=SMBIOS.StructStart) and (SMBIOS.SMBIOS_DMA.ByteValue[p]=SMB_CPU) then begin sl:=SMBIOS.SMBIOS_DMA.ByteValue[p+1]; if SMBIOS.SMBIOS_DMA.ByteValue[p+$10]>0 then s:=SMBIOS.SMBIOS_DMA.StringValue[p+sl,SMBIOS.SMBIOS_DMA.ByteValue[p+$10]]; v:=SMBIOS.SMBIOS_DMA.Wordvalue[p+$23]; writeln(Format('%s (%d cores)',[s,v])); end; idx:=SMBIOS.FindTableIndex(SMB_CPU,SMBIOS.StructTables,idx+1); until idx=-1; finally SMBIOS.Free; end; end;
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3