AVZ 5. Руководство пользователя
×

16.47.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.
 
В примере использовались:  AddToLog, StrToFloat, WMI_FETCH, WMI_GETFIELD, WMI_INIT, WMI_QUERY
Функция GetField отвечает за форматирование значения поля с заданным именем.