| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Инфо из БИОСа [D5, Win95/98]

$tranger ©   (2004-03-20 20:31:00) 

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

---

WondeRu   (2004-03-25 08:27:00) [1]

>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);


---

WondeRu   (2004-03-25 08:24:00) [2]

Конечно не пашет, нужно ининциализацию 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.

---

Александр1   (2004-03-24 19:53:00) [3]

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

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

---

WondeRu   (2004-03-24 15:03:00) [4]

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

---

Cobalt   (2004-03-24 00:38:00) [5]

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

---

$tranger   (2004-03-22 20:27:00) [6]

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

---

Плохиш   (2004-03-22 13:14:00) [7]

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

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

---

Ozone   (2004-03-22 13:03:00) [8]

TO $tranger

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

---

$tranger   (2004-03-22 11:47:00) [9]

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

---

Плохиш   (2004-03-22 11:43:00) [10]

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

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

---

$tranger   (2004-03-22 11:37:00) [11]

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

---

Германн   (2004-03-22 01:49:00) [12]

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

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

---

Anatoly Podgoretsky   (2004-03-22 00:31:00) [13]

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

---

$tranger   (2004-03-21 17:47:00) [14]

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

---

Наверх