Delphi

Вопрос

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

Ответ

Поменять:

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;

Узнать можно также с помощью объекта Screen

Screen.Width
Screen.Height

Из конференции Delphi