Как узнать и поменять разрешение экрана

Как узнать и поменять разрешение экрана

Узнать можно так:

Screen.Width;
Screen.Height;

А поменять можно с помощью следующей процердуры:

procedure ChangeDisplayResolution(x, y: word);
var
  dm: TDEVMODE;
begin
  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;

Шарнирные куклы купить в Москве. Фарфоровые куклы производства германия купить Москва. . магазин надувных лодок . Итальянская мебель. 500 фабрик: valmori. Мебель Valmori в студии Абрис. . Лечение бесплодия за рубежом. Срочно необходимо лечение за рубежом. .