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

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

Как изменить разрешение монитора. [D7, WinXP]

Radgar ©   (2005-03-19 16:46:00) 

Доброго времени суток.
Проблема в том, что мне нужно изменить (програмно) разрешение монитора, подскажите, пожлуйста, как это сделать.

---

AlterEgo of WondeRu   (2005-03-19 16:57:00) [1]

Узнать можно так:

Screen.Width;
Screen.Height;


А поменять можно с помощью следующей процердуры:

procedure ChangeDisplayResolution(x, y: word);
var
 dm: TDEVMODE;
begin
 ZeroMemory(@dm, sizeof(TDEVMODE));
 dm.dmSize := sizeof(TDEVMODE);
 dm.dmPelsWidth := x;
 dm.dmPelsHeight := y;
 dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
 ChangeDisplaySettings(dm, 0);
end;


(c) delphiworld.narod.ru

---

Наверх