16.48.6.3. Данные о дисках в системе
function GetField(AName : string) : string;
begin
Result := AName +
'="'+
WMI_GETFIELD(AName)+
'"';
end;
begin
if WMI_INIT('localhost', 'root\cimv2') then
if WMI_QUERY('SELECT * FROM Win32_LogicalDisk') then
while WMI_FETCH do begin
Addtolog(GetField('DeviceID')+', '+
GetField('VolumeName')+', '+
GetField('Size')+', '+
GetField('FreeSpace')+', '+
GetField('VolumeSerialNumber'));
end;
end.
Функция GetField отвечает за форматирование значения поля с заданным именем.