Скачать: CL | DM;

Узнать информацию о видеокарточке.   Найти похожие ветки 

← →
_   (2009-11-04 19:21) [0]

Приветствую!

1) Как узнать имя видеокарты? ("GeForse GT 7600");
2) Как узнать размер видеопамяти? (256)

ЗЫ: В скобках примерно желаемые результаты.

---

← →
TIF ©   (2009-11-05 00:01) [1]

Через WMI

Использование WMI на Delphi:
http://magsys.co.uk/delphi/magwmi.asp

---

← →
RWolf ©   (2009-11-05 00:34) [2]

Надо копать в сторону WMI.
http://www.script-coding.info/WMI_HardWare.html#Video , только на Delphi перевести.

---

← →
Германн ©   (2009-11-05 05:59) [3]

Надо купить Сандру.
:)

---

← →
brother ©   (2009-11-05 06:22) [4]

> Надо купить Сандру.

ну это же не через делфи ;)

---

← →
VS   (2009-11-05 07:43) [5]

> ЗЫ: В скобках примерно желаемые результаты.
Может проще не запариваться, раз нужны желаемые результаты? :)
Procedure TForm1.Button1Click(Sender:TObject);
Begin
Label1.Caption:="Имя видеокарты: GeForce GT 7600";
Label2.Caption:="Размер видеопамяти: 262144 кб";
End;

---

← →
_   (2009-11-05 08:28) [6]

> Через WMI


Посмотрел, понял, что не понимаю вообще что там написано. ;)
Просьба перевести один пример, а дальше я сам. ;)


Класс Win32_VideoController содержит сведения о видеокарте. Пример получения информации:

On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
For Each objVideo In objService.ExecQuery("SELECT * FROM Win32_VideoController")
WScript.Echo objVideo.SystemName "имя компьютера
WScript.Echo objVideo.Caption "наименование устройства
WScript.Echo objVideo.Description "описание устройства
WScript.Echo objVideo.DeviceID "идентификатор устройства
WScript.Echo objVideo.AdapterRAM "размер памяти видеоадаптера
WScript.Echo objVideo.CurrentHorizontalResolution "текущее разрешение экрана по горизонтали (точек)
WScript.Echo objVideo.CurrentVerticalResolution "текущее разрешение экрана по вертикали (точек)
WScript.Echo objVideo.CurrentNumberOfColors "число цветов в текущем разрешении экрана
WScript.Echo objVideo.VideoModeDescription "текущее разрешение экрана и число цветов
WScript.Echo objVideo.CurrentBitsPerPixel "качество цветопередачи (количество бит на пиксель)
WScript.Echo objVideo.CurrentRefreshRate "частота обновления экрана, Гц
"(0 - по умолчанию, 0xFFFFFFFF - оптимальная)
WScript.Echo objVideo.DriverDate "дата-время последней модификации текущего видеодрайвера
WScript.Echo objVideo.DriverVersion "версия текущего видеодрайвера
WScript.Echo objVideo.PNPDeviceID "идентификатор устройства Plug-and-Play
WScript.Echo objVideo.VideoProcessor "описание видеопроцессора
Next



---

← →
TIF ©   (2009-11-05 22:11) [7]

> Посмотрел, понял, что не понимаю вообще что там написано.
>  ;)

Надо было мою ссылку смотреть и архивчик качать, там на Delphi примеры :D Демка в комплекте

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c