Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Инфо из БИОСа   Найти похожие ветки 

← →
$tranger ©   (2004-03-20 20:31) [0]

Господа, мне нужно вытащить имя видеокарты из BIOS"a я уже задавал такой вопрос и мне дали ответ про Windows, помогите, плиз. Спасибо.

---

← →
$tranger ©   (2004-03-21 17:47) [1]

Даааааа. Даже постоянные посетители этого сайта и то молчат... Неужели никто ничего не знает?!!!

---

← →
Anatoly Podgoretsky ©   (2004-03-22 00:31) [2]

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

---

← →
Германн ©   (2004-03-22 01:49) [3]

Почему-то некоторые думают, что BIOS - это что-то вроде смеси энциплопедии, Нострадамуса и ГедроМетЦентра. И в нем есть ответы на все вопросы.

А почему бы не задать вопрос о поиске "имени видеокарты" в реестре? Особенно если она не интегрированная?

---

← →
$tranger ©   (2004-03-22 11:37) [4]

Мне давали ответы на вопрос и я уже знаю как из WINDOWS достать имя видеокарты, но если я на незнакомой машине после переустановки системы не знаю какие дрова ставить - "Стандартный видеоадаптер (VGA)" меня не устраивает... Вот почему я ищу ответ на этот вопрос.

---

← →
Плохиш   (2004-03-22 11:43) [5]

>$tranger ©   (22.03.04 11:37) [4]

Ещё один создатель ИИ ;-)

---

← →
$tranger ©   (2004-03-22 11:47) [6]

... а что такое "ИИ"?

---

← →
Ozone ©   (2004-03-22 13:03) [7]

TO $tranger

Для этих целей вполне подойдет WMI (см. MSDN)

---

← →
Плохиш   (2004-03-22 13:14) [8]

> $tranger ©   (22.03.04 11:47) [6]
> ... а что такое "ИИ"?

искуственный интелект

---

← →
$tranger ©   (2004-03-22 20:27) [9]

Ну ну... У меня есть диск с дровами, который в авторане автоматически делает выборку ПОДХОДЯЩИХ и НЕ ПОДХОДЯЩИХ для ДАННОЙ машины дров. И что-то и кто-то мне подсказывает, что авторан этот сдела на Delphi

---

← →
Cobalt ©   (2004-03-24 00:38) [10]

Действительно, тебе надо поискать статьи на msdn о WMI - у каждого устройства (наскольуко я знаю), есть VendorID (идентификатор поставщика), и ProductID (идентификатор продукта - тип вроде) - вот по ним и ориентируются дровоустановщики.

---

← →
WondeRu ©   (2004-03-24 15:03) [11]

Вызови функции
uses OpenGL;
....
S1 := glGetString(GL_VENDOR ); //name
S2 := glGetString(GL_RENDERER);//type

---

← →
Александр1 ©   (2004-03-24 19:53) [12]

$tranger - Интересный ты вопрос задал. Я тоже давно на него ответ ищу. Если чё найдёшь скинь пожалуйста на ящик ести не трудно! Спасибо!
Кстати

uses OpenGL;
....
S1 := glGetString(GL_VENDOR ); //name
S2 := glGetString(GL_RENDERER);//type
Незнаю как под другие, но под XP не пашет.
И ещё s1,s2 - какого типа? String?

---

← →
WondeRu ©   (2004-03-25 08:24) [13]

Конечно не пашет, нужно ининциализацию OpenGL сделать, конечно можно и легче сделать, но думать не охота))):

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, OpenGl;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

var
 dc                  : HDC;
 hrc                 : HGLRC;

procedure SetDCPixelFormat (hdc : HDC);
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar(pfd,SizeOf(pfd),0);

 pfd.nVersion := 1;

 pfd.dwFlags := PFD_DRAW_TO_WINDOW or
                PFD_SUPPORT_OPENGL or
                PFD_DOUBLEBUFFER;

 pfd.cColorBits := 32;

 nPixelFormat := ChoosePixelFormat (hdc, @pfd);

 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;

procedure GetContext;
begin
 dc  := getdc(Form1.Handle);
 hrc := wglCreateContext(dc);
 wglMakeCurrent(dc, hrc);
end;

//----------------------------------------------------------------------------//
procedure FreeContext;
begin
 wglMakeCurrent(0,0);
 wglDeleteContext(dc);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 GetContext;
 SetDCPixelFormat(dc);
 GetContext;

   MessageBox(Handle,
                  PAnsiChar("Производитель: " + glGetString(GL_VENDOR ) +#13+
                  "Графический ускоритель: "  + glGetString(GL_RENDERER)+#13+
                  "Версия: "                  + glGetString(GL_VERSION) +#13+
                  "Расширения: "              + glGetString(GL_EXTENSIONS)),
                  MB_OK or MB_ICONINFORMATION);
 FreeContext;
end;

end.

---

← →
WondeRu ©   (2004-03-25 08:27) [14]

>MySelf
>Конечно не пашет, нужно ининциализацию OpenGL сделать, конечно >можно и легче сделать, но думать не охота))):

Прям русский язык так и прет)))
и еще пропустил:

MessageBox(Handle,
                  PAnsiChar("Производитель: " + glGetString(GL_VENDOR ) +#13+
                  "Графический ускоритель: "  + glGetString(GL_RENDERER)+#13+
                  "Версия: "                  + glGetString(GL_VERSION) +#13+
                  "Расширения: "              + glGetString(GL_EXTENSIONS)),
                  "Описание текущего OpenGL соединения",
                  MB_OK or MB_ICONINFORMATION);


---

Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.084 c