16.48.6.2. Сведения о видеокарте
begin
if WMI_INIT('localhost', 'root\cimv2') then
if WMI_QUERY('SELECT * FROM Win32_VideoController') then
while WMI_FETCH do begin
Addtolog('VideoProcessor = '+ WMI_GETFIELD('VideoProcessor'));
Addtolog('Video RAM = '+ WMI_GETFIELD('AdapterRAM'));
Addtolog('VideoModeDescription = '+ WMI_GETFIELD('VideoModeDescription'));
end;
end.