Настройка монитора

Содержание материала

Страница 1 из 2

Иногда требуется, чтобы программа работала при чётко заданных параметрах монитора: разрешение, глубина цвета, частота обновления… Определить текущее разрешение просто, достаточно обратиться к объекту TScreen и посмотреть значения его полей Width и Height. А вот чтобы установить свои значения требуется обратиться к функции Api: ChangeDisplaySettings. Если мы хотим вернуть текущие настройки по завершении работы программы, то перед вызовом изменений надо запомнить эти настройки например таким образом:

Code:

uses ShellApi;

var

DefWidth, DefHeight, BPP: word;

...

procedure SaveSettings;

var

DC: hDC;

begin

DefWidth := Screen.Width;

DefHeight := Screen.Height;

DC := CreateDC('DISPLAY', nil, nil, nil);

BPP := GetDeviceCaps(DC, BITSPIXEL);

end;

После этого можно устанавливать свои параметры. Для упрощения собственной жизни я написал небольшую процедуру, которой надо только передать желаемые параметры и она их либо установит, либо сообщит о невозможности их установки.

Code:

procedure SetScreen(BPP:byte;width,height,FR:integer);

var

D: TDevMode;

h: HWND;

begin

h:=0;

D.dmDeviceName:='DISPLAY';

D.dmBitsPerPel:=BPP;

D.dmDisplayFrequency:=FR;

D.dmPelsWidth:=Width;

D.dmPelsHeight:=Height;

D.dmFields:=DM_BITSPERPEL+DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY;

D.dmSize:=SizeOf(D);

if ChangeDisplaySettings(D,CDS_TEST)=DISP_CHANGE_SUCCESSFUL then

ChangeDisplaySettings(D,CDS_UPDATEREGISTRY)

else

MessageBox(h,'This mode is not supported by your video.',

'Failed to change mode', MB_ICONWarning);

end;

Настройка монитора

Настройка монитора

Содержание материала

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Добавить комментарий

Системные функции и WinAPI

Вопросы по Delphi

VCL

Язык Дельфи

Облако тегов

Карта сайта