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

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

Поддерживаемые разрешения...

botaniQ ©   (2008-05-20 12:14:00) 

Доброе всем время.
Не пинайте сильно, ибо вопрос глуп донельзя.
Расскажите пожалуйста - каким образом узнать список поддерживаемых видео-карточкой разрешений с глубиной цвета?

---

botaniQ   (2008-05-20 12:23:00) [1]

Rouse_ ©, спасибо - даже частоту равертки выдает :)

---

Юрий Зотов   (2008-05-20 12:21:00) [2]

EnumDisplaySettings

---

Rouse_   (2008-05-20 12:18:00) [3]

procedure TForm1.FormCreate(Sender: TObject);
const
 ENUM_CURRENT_SETTINGS = DWORD(-1);
var
 I:integer;
 ScreenMode: TDeviceMode;
begin
 ListBox1.Items.Clear;
 // Текущие настройки
 if EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, ScreenMode) then
   Caption := Format('Разрешение: %dx%d, глубина цвета: %d, частота: %d',
       [
       ScreenMode.dmPelsWidth,
       ScreenMode.dmPelsHeight,
       ScreenMode.dmBitsPerPel,
       ScreenMode.dmDisplayFrequency
       ]);

 // Настройки из реестра
 I := 0;
 while EnumDisplaySettings(nil, I, ScreenMode) do
 begin
   ListBox1.Items.Add(
     Format('Разрешение: %dx%d, глубина цвета: %d, частота: %d',
       [
       ScreenMode.dmPelsWidth,
       ScreenMode.dmPelsHeight,
       ScreenMode.dmBitsPerPel,
       ScreenMode.dmDisplayFrequency
       ]));
   Inc(I);
 end;      
end;

---

Наверх