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

made in programmersforum 4

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

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

1st
Сен

Изменить разрешение экрана

Posted by micher under Delphi

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

eoln



procedure TForm1.Button1Click(Sender: TObject);

var

  dmScreenSettings: DEVMODE;

begin

  ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));

  with dmScreenSettings do begin

    dmSize:=SizeOf(dmScreenSettings);

    dmPelsWidth:=1366;

    dmPelsHeight:=768;

    dmBitsPerPel:=32;

    dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL

  end;

  if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN)=DISP_CHANGE_FAILED) then begin

      MessageBox(0, 'Разрешение не сменилось', 'Ошибка', MB_OK or MB_ICONERROR);

      Application.Terminate

  end;

end;