[kirman]

Подскажите пожалуйста, как программно поменять разрешение экрана?

Просто не на всех машинах может оказаться то разрешение в настройках экрана, которое мне нужно, и поэтому я бы хотел, чтобы моя прога сама подстраивала экран под себя.

Заранее спасибо)

[v1s2222]

Узнать текущее расширение можно так:

Код:

1 2	Screen.Width Screen.Height

Поменять расширение так:

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;   procedure TForm1.Button1Click(Sender: TObject); begin   ChangeDisplayResolution(800, 600); end;

[kirman]

ммм...спасибо, но что-то не то:

[NumLock]

все то:

Код:

1 2	uses   Windows;