Как программно изменить разрешение экрана?

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

procedure ChangeDisplayResolution(x, y: Word);
var
  dm: TDEVMODE;
begin
  //подготавливаем структуру Device Mode
  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;

 

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

Ваш адрес email не будет опубликован. Обязательные поля помечены *