Сменить разрешение экрана

[Pasha_Sh]

Как программно изменить разрешение экрана?
Спасибо.

[ArtGrek]

переводит в 800х600 и обратно при выключении
думаю разберешся

var
  Form1: TForm1;
  a, b: word;
  myJpg: TJpegImage;
  dm: TDEVMODE;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=Screen.Width;                               // запоминаем нынешнее разрешение
  b:=Screen.Height;                              // ето нужно было мне, для возврата разрешения, не обязательно

  ZeroMemory(@dm, sizeof(TDEVMODE)); // освобождаем память по адресу @dm где храница  разрешение 
  dm.dmSize := sizeof(TDEVMODE);         // задаем размер тому куда запишем новое разрешение
  dm.dmPelsWidth :=800;                      // задаем новое разрешение
  dm.dmPelsHeight :=600;
  dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; //указываем какие именно из параметров монитора мы хотим изменить
  ChangeDisplaySettings(dm, 0);            // меняем

  Form1.Width:=Screen.Width;               //устанавливаем форму на вес екран, Form.Border.Style :=bcNone; , не обязательно
  Form1.Height:=Screen.Height;
  Form1.Left:=0;
  Form1.Top:=0;
  if FileExists('C:\Test\test.jpg') then  // проверяю наличие, создаю, вырисовываю на форме картинку, не обязательно
  begin
    myJpg:=TJpegImage.Create;
    myJpg.LoadFromFile('C:\Test\test.jpg');
    Canvas.StretchDraw( Bounds(0,0,Form1.Width,Form1.Height), myJpg);
    myJpg.Destroy;
  end;

end;

// при закрытии меняю разрешение обратно, по сохраненным выше А и В
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZeroMemory(@dm, sizeof(TDEVMODE));
  dm.dmSize := sizeof(TDEVMODE);
  dm.dmPelsWidth :=a;
  dm.dmPelsHeight :=b;
  dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
  ChangeDisplaySettings(dm, 0);
end;

end.

[asmodey1]

Вы ему так голову заморочите
Попроще надо...

procedure TForm1.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;

procedure TForm1.Button2Click(Sender: TObject);
begin
ChangeDisplayResolution(1440,900);
end;

А уж где процедуру вызывать, он и сам придумает.

[ArtGrek]

Сообщение от asmodey1

Вы ему так голову заморочите
Попроще надо...

Вы правы
могу немного пояснить

все, можно читать