Советы по Delphi


              

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


Nomadic отвечает:

Поменять:

    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;

[001556]



Содержание  Назад  Вперед