Цитата 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 видюшек
Я шапочный ултимейт тест в глаза не видел. Открыл гугл и нашёл функцию