Форум: "Начинающим";
Текущий архив: 2008.06.15;
Скачать: [xml.tar.bz2];
ВнизПоддерживаемые разрешения... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c