Das
WMI ist bestimmt 'nen guter Vorschlag.
Wenn du mich dann gefunden hast, dann könnte ich dir z.B. dieses vorschlagen:
> z.B.
WMI (Windows Management Instrumentation) + Demo
Delphi-Quellcode:
Uses ...,
WMI;
Var WMIResults: TWMIInfo;
ChassisTypes: Integer;
If WMIGetInfo('
.', '
root\CIMV2', '
', '
',
'
Select ChassisTypes from Win32_SystemEnclosure', WMIResults)
Then
ChassisTypes := StrToInt(WMIRead(WMIResults, 0, '
ChassisTypes'));