Видеокарта

[JIeT4uK]

как узнать какая видеокарта установлена?????

[Tamahawk]

Зайди в: Мой комп->Свойство->Диспечер устройств->Видеоадаптер
тама написано

[EvilCoder]

<DELETE>

[Eduard]

Здеся на моем сайтике в Программах есть программка вроде-бы Системная информация завотся, и она показывает некатарую инфу про комп, и про видео там тоже вроде что-то есть Коточе cетупчик и исходничик в твоем распоряжении: http://www.zone.ee/vbprogs/programs.html#sysinfo

[Faust]

Соответствующей API не нашел, но средствами DirectX'а можно сделать следующее:

Код: Выделить всё

Dim dx As New DirectX7
Dim dd As DirectDraw7
Private Sub Form_Load()
Set dd = dx.DirectDrawCreate("")
Me.AutoRedraw = True
Dim Inf As DirectDrawIdentifier
Set Inf = dd.GetDeviceIdentifier(DDGDI_DEFAULT)
Me.Print "Имя видеокарты - " & Inf.GetDescription
Me.Print "Уникальный идентификатор чипсета - " & Inf.GetDeviceId
Me.Print "Уникальный идентификатор видеокарты - " & Inf.GetDeviceIndentifier
Me.Print "Файл драйвера - " & Inf.GetDriver
Me.Print "Нижний индекс версии - " & Inf.GetDriverSubVersion
Me.Print "Верхний индекс версии - " & Inf.GetDriverVersion
Me.Print "Ревизия - " & Inf.GetRevision
Me.Print "Идентификатор графической подсистемы (не спрашивайте,что это) -  " & Inf.GetSubSysId
Me.Print "Идентификатор производителя - " & Inf.GetVendorId
Me.Print "Windows Hardware Quality Level для данного драйвера - " & Inf.GetWHQLLevel
End Sub