magnettotal.blogg.se

WriteLn(Format('Processor Characteristics %.4x',)) WriteLn('Part Number '+LProcessorInfo.PartNumberStr) WriteLn('Asset Tag '+LProcessorInfo.AssetTagStr) WriteLn('Serial Number '+LProcessorInfo.SerialNumberStr) WriteLn('Processor Upgrade '+LProcessorInfo.ProcessorUpgradeStr) WriteLn(Format('Current processor speed %d Mhz',)) WriteLn(Format('Maximum processor speed %d Mhz',)) WriteLn(Format('External Clock %d Mhz',))

WriteLn('Version '+LProcessorInfo.ProcessorVersionStr) WriteLn('Familiy '+LProcessorInfo.ProcessorFamilyStr) WriteLn('Type '+LProcessorInfo.ProcessorTypeStr) WriteLn('Socket Designation '+LProcessorInfo.SocketDesignationStr) WriteLn('Manufacturer '+LProcessorInfo.ProcessorManufacturerStr) Result := Result + GetEnumName(LTypeInfo, I) įor LProcessorInfo in SMBios.ProcessorInfo do

If Result '' then Result := Result + ',' LTypeInfo := GetTypeData(Info)^.CompType OtSLong, otULong: Integer(LIntegerSet) := Integer(Value) OtSWord, otUWord: Integer(LIntegerSet) := Word(Value) OtSByte, otUByte: Integer(LIntegerSet) := Byte(Value) Check the next snippet that shows how obtain such data using the TSMBIOS (remember, if you are using FPC, you can use this library in Windows and Linux).įunction SetToString(Info: PTypeInfo const Value): String The SMBIOS expose the info about the installed processors in the table type 4.