Inno Setup Тест

nik1967 · 22 Ноя 2015

Всем доброго времени суток! У кого найдётся свободная минутка, прошу запустить сей файлик и отписаться, правду ли он показал. Интересует только название вендора (NVIDIA или AMD) и разрядность системы. Особенно приветствуются запуски на смешанной графике типа эндуро, или оптимус. У кого ТОЛЬКО встроенная графика от INTEL, может не качать. Всё равно выдаст "Не удалось определить видеокарту". Так, как ещё раз повторюсь: интересуют только NVIDIA и AMD.

Ах, да! Для сомневающихся. https://www.virustotal.com/ru/file/...6066f133de30d70fd9c4f2e5/analysis/1448213754/

Krinkels · 22 Ноя 2015

Правду

nik1967 · 22 Ноя 2015

Спасибо, Саша!

Devils Night · 22 Ноя 2015

Все ок, правильно определяет видяху. Блин, забыл, про разрядность, разрядность тоже определяет как надо. Так что все пучком.

sergey3695 · 22 Ноя 2015

Все ок.

Timick · 22 Ноя 2015

Всё верно.

ShuLLeR · 22 Ноя 2015

Все верно показал, АМД и х64

Adil · 23 Ноя 2015

Все ок: Nvidia и x64

OneTwo · 23 Ноя 2015

Всё верно - и производитель и разрядность.

Snoopak96 · 23 Ноя 2015

nik1967,
На оптимусе выдаёт дискретную картачку, на интегрированную же интел просто забивает. Ну собсно думаю будет полезно http://krinkels.org/threads/faq-po-inno-setup.7/page-4#post-25723 - и без разницы какая видеокарта.
тоже как-то брался за системки, пришёл к выводу что без биоса не обойтись - оценивать по объёму видеопамяти в наше время глупо минимум. Но на данный момент катастрофически мало свободного времени - увы.

STALKER · 23 Ноя 2015

верно показывает

nik1967 · 23 Ноя 2015

Snoopak96 написал(а):
На оптимусе выдаёт дискретную картачку, на интегрированную же интел просто забивает.

Дык на это и расчёт был. Чтобы определить именно дискретную. Так, как почти везде определяется интегрированная (на гибридных системах). И да, мне (даже не мне) нужно было просто определить вендора, даже без точного названия карточки и объёма памяти. Что и сделал.
Реестр. HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}. Что для XP, что для 10. Кстати, там же можно найти информацию и о видеопамяти. HardwareInformation.MemorySize. В байтах.
Примерно так:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
   VKName,VKName1,S: String;

function AMD: Boolean;
begin
   if not RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then VKName:= ' ';
   if not RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0001\Settings','Device Description',VKName1) then VKName1:= ' ';
   S:= VKName1+' + '+VKName;
   Result:= Pos('Radeon',S)>0;
end;

function NVIDIA: Boolean;
begin
   if not RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then VKName:= ' ';
   if not RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0001\Settings','Device Description',VKName1) then VKName1:= ' ';
   S:= VKName1+' + '+VKName;
   Result:= Pos('GeForce',S)>0;
end;

function InitializeSetup: Boolean;
begin
  if (AMD and IsWin64) then
     MsgBox('Видеокарта: AMD'+#13#10+'Система: x64',mbInformation, mb_Ok)
   else
   if (AMD and not IsWin64) then
     MsgBox('Видеокарта: AMD'+#13#10+'Система: x86',mbInformation, mb_Ok)
   else
   if (NVIDIA and IsWin64) then
     MsgBox('Видеокарта: NVIDIA'+#13#10+'Система: x64',mbInformation, mb_Ok)
   else
   if (NVIDIA and not IsWin64) then
     MsgBox('Видеокарта: NVIDIA'+#13#10+'Система: x86',mbInformation, mb_Ok)
   else
   if not (AMD or NVIDIA) then
     MsgBox('Не удалось определить видеокарту',mbInformation, mb_Ok);
   Result:= false;
end;

Почему Radeon и GeForce, а на AMD и NVIDIA? У одного знакомого не правильно отработало из-за интегрированной карточки от AMD.
Принимаю критику и разнос от Сергея (Snoopak96) за дилетантство, но ведь ... работает.

Snoopak96 · 24 Ноя 2015

nik1967,
не, реестр это мусорка винды, да и все мы знаем про сборки и прямые руки авторов этих сборок, по этому реестр не вариант.

Loner · 24 Ноя 2015

Всё верно определила.

Mickey1s · 24 Ноя 2015

все верно

SBalykov · 25 Ноя 2015

nik1967 написал(а):
Дык на это и расчёт был. Чтобы определить именно дискретную. Так, как почти везде определяется интегрированная (на гибридных системах). И да, мне (даже не мне) нужно было просто определить вендора, даже без точного названия карточки и объёма памяти. Что и сделал.

По-моему, для правильного определения дискретной видеокарты, необходимо добавить:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
VKName: array [0..3] of String;
S: String;

function AMD: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName[0])
then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0001\Settings','Device Description',VKName[1])
then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings','Device Description',VKName[2])
then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0003\Settings','Device Description',VKName[3])
then
S:= VKName[3]+' + '+ VKName[0];
Result:= Pos('AMD',S)>0;
end;

function NVIDIA: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName[0])
then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0001\Settings','Device Description',VKName[1])
then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings','Device Description',VKName[2])
then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0003\Settings','Device Description',VKName[3])
then
S:= VKName[3]+' + '+ VKName[0];
Result:= Pos('NVIDIA',S)>0;
end;

function InitializeSetup: Boolean;
begin
if (AMD and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok)
else
if (AMD and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok)
else
if (NVIDIA and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok)
else
if (NVIDIA and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok)
else
if not (AMD and NVIDIA) then
MsgBox(VKName[0],mbInformation, mb_Ok);
Result:= false;
end;

Немного подправил ...

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
S,VKName,VKName1: String;

function AMD: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0003\Settings','Device Description',VKName1) then
S:= VKName1+' + '+VKName;
Result:= Pos('AMD',S)>0;
end;

function NVIDIA: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0003\Settings','Device Description',VKName1) then
S:= VKName1+' + '+VKName;
Result:= Pos('NVIDIA',S)>0;
end;

function VCardAMD: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then
S:= VKName;
Result:= Pos('AMD',S)>0;
end;

function VCardNVIDIA: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then
S:= VKName;
Result:= Pos('NVIDIA',S)>0;
end;

function InitializeSetup: Boolean;
begin
if (AMD and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (AMD and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if (NVIDIA and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (NVIDIA and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if (VCardAMD and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (VCardAMD and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if (VCardNVIDIA and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (VCardNVIDIA and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if not (AMD and NVIDIA and VCardAMD and VCardNVIDIA) then
MsgBox(VKName+#13#10+'Видеокарта не поддерживается',mbInformation, mb_Ok)
Result:= false;
end;

Упрощенный вариант:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
S,VKName,VKName1: String;

function VCard: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0003\Settings','Device Description',VKName1) then
S:= VKName1+' + '+VKName;
Result:= Pos('AMD',S)<>Pos('NVIDIA',S);
end;

function VCard1: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then
S:= VKName;
Result:= Pos('AMD',S)<>Pos('NVIDIA',S);
end;

function InitializeSetup: Boolean;
begin
if (VCard and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (VCard and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if (VCard1 and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (VCard1 and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if not (VCard and VCard1) then
MsgBox(VKName+#13#10+'Видеокарта не поддерживается',mbInformation, mb_Ok)
Result:= false;
end;

Вложение проверено

nik1967 · 27 Ноя 2015

SBalykov, думаешь я зря здесь выкладывал на тест, да ещё в скайпе куче знакомых? У всех определило правильно. Мой вариант более работоспособный, как мне кажется. Вот что твой выдал:

У меня эта видеокарта интегрирована в камень (эндуро). Почти все определители сис. требований выдают то-же. А мой вариант правильно определяет:

SBalykov · 28 Ноя 2015

nik1967
Что ты кипятишься.
У меня при твоем способе не отображается дискретка на ноуте Lenovo.
Ну, значит не судьба.
У меня на двух ноутах дискретную карту определяет нормально, что в принципе говорит о том, что универсальных, простых способов не существует ...
Попробуй вот так:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
S,VKName: String;

function VCard: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0001\Settings','Device Description',VKName) then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings','Device Description',VKName) then
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0003\Settings','Device Description',VKName) then
S:= VKName;
Result:= Pos('AMD',S)<>Pos('NVIDIA',S);
end;

function VCard1: Boolean;
begin
if RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings','Device Description',VKName) then
S:= VKName;
Result:= Pos('AMD',S)<>Pos('NVIDIA',S);
end;

function InitializeSetup: Boolean;
begin
if (VCard and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (VCard and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if (VCard1 and IsWin64) then
MsgBox(S+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (VCard1 and not IsWin64) then
MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if not (VCard and VCard1) then
MsgBox(VKName+#13#10+'Видеокарта не поддерживается',mbInformation, mb_Ok)
Result:= false;
end;

nik1967
Я, как бабуин, изначально повторил не правильно и понеслось ...
А ошибка в условиях, которые не нужны

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
S,VKName: String;

function VCard: Boolean;
begin
RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0001\Settings\','Device Description',VKName);
RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0002\Settings\','Device Description',VKName);
RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0003\Settings\','Device Description',VKName);
S:= VKName;
Result:= Pos('AMD',S)<>Pos('NVIDIA',S);
end;

function VCard1: Boolean;
begin
RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\Settings\','Device Description',VKName);
S:= VKName;
Result:= Pos('AMD',S)<>Pos('NVIDIA',S);
end;

function InitializeSetup: Boolean;
begin
if (VCard and IsWin64) then MsgBox(S+#13#10+Система: x64',mbInformation, mb_Ok) else
if (VCard and not IsWin64) then MsgBox(S+#13#10+'Система: x86',mbInformation, mb_Ok) else
if (VCard1 and IsWin64) then MsgBox(s+#13#10+'Система: x64',mbInformation, mb_Ok) else
if (VCard1 and not IsWin64) then MsgBox(s+#13#10+'Ñèñòåìà: x86',mbInformation, mb_Ok) else
if not (VCard and VCard1) then MsgBox(VKName+#13#10+'Не поддерживается',mbInformation, mb_Ok);
Result:= false;
end;

nik1967 · 29 Ноя 2015

SBalykov написал(а):
У меня при твоем способе не отображается дискретка на ноуте Lenovo.

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
   VKName: String;
 
function FindName: String;
var
   i: Integer;
begin
  for i:= 0 to 9 do begin
     RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\000'+inttostr(i)+'\Settings','Device Description',VKName);
     Result:= VKName;
   end; 
end;

function AMD: Boolean;
begin
   FindName;
   Result:= Pos('Radeon',VKName)>0;
end;

function NVIDIA: Boolean;
begin
   FindName;
   Result:= Pos('GeForce',VKName)>0;
end;

function InitializeSetup: Boolean;
begin
   if (AMD and IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x64',mbInformation, mb_Ok)
   else
   if (AMD and not IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x86',mbInformation, mb_Ok)
   else
   if (NVIDIA and IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x64',mbInformation, mb_Ok)
   else
   if (NVIDIA and not IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x86',mbInformation, mb_Ok)
   else
   if not (AMD or NVIDIA) then
     MsgBox('Не удалось определить видеокарту',mbInformation, mb_Ok);
     Result:= false;
end;

SBalykov · 30 Ноя 2015

nik1967 написал(а):

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[code]
var
   VKName: String;

function FindName: String;
var
   i: Integer;
begin
  for i:= 0 to 9 do begin
     RegQueryStringValue(HKLM,'SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\000'+inttostr(i)+'\Settings','Device Description',VKName);
     Result:= VKName;
   end;
end;

function AMD: Boolean;
begin
   FindName;
   Result:= Pos('Radeon',VKName)>0;
end;

function NVIDIA: Boolean;
begin
   FindName;
   Result:= Pos('GeForce',VKName)>0;
end;

function InitializeSetup: Boolean;
begin
   if (AMD and IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x64',mbInformation, mb_Ok)
   else
   if (AMD and not IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x86',mbInformation, mb_Ok)
   else
   if (NVIDIA and IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x64',mbInformation, mb_Ok)
   else
   if (NVIDIA and not IsWin64) then
     MsgBox('Видеокарта: '+VKName+#13#10+'Система: x86',mbInformation, mb_Ok)
   else
   if not (AMD or NVIDIA) then
     MsgBox('Не удалось определить видеокарту',mbInformation, mb_Ok);
     Result:= false;
end;

Спасибо. Нормально.
Я уже сделал, только немного покороче.
Ты зачем отдельно проверяешь AMD и NVIDIA, можно же в одну проверку:
Result:= Pos('Radeon',VKName) <> Pos('GeForce',VKName);
соответственно и далее убрать лишнее
Вообще, спасибо за идею, натолкунуло на мысль ...

Inno Setup Тест

Old Men

Вложения

Он где то тут

Old Men

Ветеран

Ветеран

Старожил

Новичок

Старожил

Новичок

Старожил

Ветеран

Old Men

Старожил

Новичок

Ветеран

Старожил

Вложения

Old Men

Старожил

Old Men

Старожил