[R.i.m.s.k.y.]

Johny777 Это копипаста из шапочного ултимейт тест

Почему то имя одной и той же видеокарты возвращает 2 раза.

А дублируется скорее всего потому что дрова обновлял поверх
но я делаю так

Код:

function GetAllVideoCard():String; // HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}
var
  Keys : TArrayOfString;
  key, DriverDesc, MatchingDeviceId : string;
  i : integer;
begin
  Result := '';
  key := 'SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}'; RegGetSubkeyNames(HKLM, key, Keys)
  for i := 0 to GetArrayLength(Keys)-1 do begin
    RegQueryStringValue(HKLM, key + '\' + Keys[i], 'DriverDesc', DriverDesc);
    RegQueryStringValue(HKLM, key + '\' + Keys[i], 'MatchingDeviceId', MatchingDeviceId); StringChangeEx(MatchingDeviceId, 'pci\', '', True);
    if (Pos(LowerCase(DriverDesc), LowerCase(Result)) = 0) then Result := Result + #13#10 + DriverDesc + ' (' + MatchingDeviceId + ')';
  end;
end;

Дергается не только имя, то и главное - dev&ven, по которому можно выделать классы видеоадаптеров, что намного точнее чем маркетинговые имена
И главное - в системах с оптимусом покажет не только intelHD, но и гефорц

вот тут можно узнать div видюшек
http://cateee.net/lkddb/web-lkddb/DRM_I915.html