Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


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

Delphi FAQ >> Система

С помощью этой функции на 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;


Все понимают, что труд программистов должен оплачиваться, но при низких доходах скачать варез остается единственным решением для работы с нормальными программами.