Страница 42 из 86
Как узнать и поменять разрешение экрана?
Поменять:procedure ChangeDisplayResolution(x, y : word);Узнать можно также с помощью объекта Screen
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.Width
Screen.Height