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

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

Система [D6, D7, Win2k, WinXP]

tvv ©   (2006-11-07 15:46:00) 

Как можно программно поменять разрешения монитора и глубину цвета?

---

DVM   (2006-11-07 16:15:00) [1]

var
 i: integer;
 mode: TDevMode;
 Res: integer;
begin
 Result := true;
 i := 0;
 Res := 0;
 while EnumDisplaySettings(nil, i, mode) do
   begin
     if (mode.dmPelsWidth = 1024) and (mode.dmPelsHeight = 768) and
        (mode.dmBitsPerPel = 32) and (mode.dmDisplayFrequency = 85) then
          Res := ChangeDisplaySettings(mode, CDS_UPDATEREGISTRY);
     Inc(i);
   end;
end;

---

Наверх