Как узнать и поменять разрешение экрана
Как узнать и поменять разрешение экрана
Как узнать и поменять разрешение экрана Поменять: 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