To get hardware information in Delphi, you can use the Windows Management Instrumentation (WMI) API. WMI is a standard interface for accessing and managing hardware and software information on a Windows system.
To use WMI in Delphi, you will need to add the ActiveX unit to your project and use the IWbemServices interface to query WMI for information.
Here is an example of how to use WMI to get the model and manufacturer of the computer’s processor:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
uses ActiveX, ComObj, Variants; function GetProcessorInformation: string; var FSWbemLocator: OLEVariant; FWMIService: OLEVariant; FWbemObjectSet: OLEVariant; FWbemObject: OLEVariant; oEnum: IEnumvariant; iValue: LongWord; begin Result := ”; FSWbemLocator := CreateOleObject(‘WbemScripting.SWbemLocator’); FWMIService := FSWbemLocator.ConnectServer(‘localhost’, ‘root\CIMV2’, ”, ”); FWbemObjectSet := FWMIService.ExecQuery(‘SELECT * FROM Win32_Processor’, ‘WQL’, WBEM_FLAG_FORWARD_ONLY); oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; while oEnum.Next(1, FWbemObject, iValue) = 0 do begin Result := Result + VarToStr(FWbemObject.Manufacturer) + ‘ ‘ + VarToStr(FWbemObject.Name) + sLineBreak; FWbemObject := Unassigned; end; end; |
You can use similar code to query WMI for other types of hardware information, such as the amount of memory, the model and serial number of the motherboard, and so on.
Here is a list of some common WMI classes that you can use to query hardware information:
- Win32_Processor: Processor information (model, manufacturer, number of cores, clock speed, etc.)
- Win32_PhysicalMemory: Memory information (capacity, type, speed, etc.)
- Win32_BaseBoard: Motherboard information (manufacturer, model, serial number, etc.)
- Win32_VideoController: Graphics card information (manufacturer, model, memory size, etc.)
- Win32_DiskDrive: Disk drive information (model, serial number, size, etc.)
Leave a Reply