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