Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Ноя

Изменение частоты монитора

Posted by maloy under Delphi, Архив

Saili

Подскажите как изменить величину кадровой развертки монитора на 50 Гц по нажатию, например, кнопки, а второй кнопкой вернуть ее ранее установленное значение?

Сильванович Михаил

Код:

procedure SetMonitorStatus(width,height,frequ ency: integer; bpp: byte);

var DeviceMode : TDevMode;

begin

with DeviceMode do

begin

dmSize:=SizeOf(DeviceMode);

dmBitsPerPel:=bpp;

dmPelsWidth:=width;

dmPelsHeight:=height;

dmDisplayFrequency:=frequency;

dmFields:=DM_BITSPERPEL+DM_PELSWIDT H+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY ;

end;

if ChangeDisplaySettings(DeviceMode,CD S_TEST)=DISP_CHANGE_SUCCESSFUL then

ChangeDisplaySettings(DeviceMode,CD S_UPDATEREGISTRY);

end;

Frequency — частота.

тема на форуме от 2006 года