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

Written on 16 Сентября 2006. Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 42 из 86

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

Поменять:

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