Текущий архив: 2008.06.15;
Скачать: CL | DM;

Вниз

Поддерживаемые разрешения...   Найти похожие ветки 

← →
botaniQ   (2008-05-20 12:14) [0]

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

---

← →
Rouse_ ©   (2008-05-20 12:18) [1]

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;

---

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

EnumDisplaySettings

---

← →
botaniQ   (2008-05-20 12:23) [3]

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

---

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

Текущий архив: 2008.06.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c