Определение видеокарты

[alex0097]

Alex11223
В том что бы он понимал что между словами пробел.

В том то и дело он не ищет GTX 980 Ti

(pos('GTX 970',vids)>0) or (pos('GTX 980 Ti',vids)>0)

А если вбить (pos('970',vids)>0) or (pos('980',vids)>0) , он определяет

[Alex11223]

Что в vids?

[alex0097]

function Video():string;
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
result:='';
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc := 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
  begin
    Inc(cc);
    result:=result+lpDisplayDevice.DeviceString;

  end;
end;

function STVids():string;
var
  vids:string;
begin
vids:=lowercase(Video);

 if  (pos('GTX 970',vids)>0) or (pos('GTX 980 Ti',vids)>0) then

ShowMessage('GeForce 900 Series');

[Serge_Bliznykov]

вот Вы бы вывели переменную vids куда-нибудь в мемо (или хотя бы в ShowMessage)
увидели, в чём ваша ошибка!

вот скажите, Вы зачем делаете lowercase? Вы знаете, что это за функция и что она делает?!

попробуйте:

 vids:=lowercase(Video);
  if  (pos('gtx 970',vids)>0) or (pos('gtx 980 ti',vids)>0) then
      ShowMessage('GeForce 900 Series');

[alex0097]

Вообщем спасибо всем. Иду быдло кодом

((pos('gtx 950',vids)>0) or (pos('gtx 960',vids)>0) or (pos('gtx 970',vids)>0) or (pos('gtx 980',vids)>0) or (pos('gtx 980 ti',vids)>0) or (pos('gtx titan x',vids)>0) )

[Alex11223]

Запишите список моделей и драйверов в файл и будет не быдлокод.