С помощью этой функции на 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;
Все понимают, что труд программистов должен оплачиваться, но при низких доходах скачать варез остается единственным решением для работы с нормальными программами.