| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Узнать информацию о видеокарточке.
_ © (2009-11-04 19:21:00)Приветствую!
1) Как узнать имя видеокарты? ('GeForse GT 7600');
2) Как узнать размер видеопамяти? (256)
ЗЫ: В скобках примерно желаемые результаты.
TIF (2009-11-05 22:11:00) [1]> Посмотрел, понял, что не понимаю вообще что там написано.
> ;)
Надо было мою ссылку смотреть и архивчик качать, там на Delphi примеры :D Демка в комплекте
_ (2009-11-05 08:28:00) [2]
> Через 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
VS (2009-11-05 07:43:00) [3]> ЗЫ: В скобках примерно желаемые результаты.
Может проще не запариваться, раз нужны желаемые результаты? :)
Procedure TForm1.Button1Click(Sender:TObject);
Begin
Label1.Caption:='Имя видеокарты: GeForce GT 7600';
Label2.Caption:='Размер видеопамяти: 262144 кб';
End;
brother (2009-11-05 06:22:00) [4]> Надо купить Сандру.
ну это же не через делфи ;)
Германн (2009-11-05 05:59:00) [5]Надо купить Сандру.
:)
RWolf (2009-11-05 00:34:00) [6]Надо копать в сторону WMI.
http://www.script-coding.info/WMI_HardWare.html#Video, только на Delphi перевести.
TIF (2009-11-05 00:01:00) [7]Через WMI
Использование WMI на Delphi:
http://magsys.co.uk/delphi/magwmi.asp
| |
