[kirman]

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

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

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

[v1s2222]

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

Код:

Screen.Width
Screen.Height

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

Код:

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]

Код:

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]

все то:

Код:

uses
  Windows;