Изменение разрешения при запуске формы

[artemavd]

Как сделать, чтобы когда я запустил свою программу, то разрешение экрана автоматически менялось на то, какое я укажу в процессе разработки программы? Например, если у пользователя разрешение стоит 1024х768, а я писал прогу на разрешении 1280х800, то, когда пользователь запускает мою программу, в момент запуска бы разрешение бы экрана пользователя менялось на 1280х800, а когда пользователь закрывает мою программу, то разрешение бы вновь становиллось бы равным 1024х768. Как это можно сделать? Ни поиск по форуму, ни по интернету не дал вразумительных ответов.

[Alex Cones]

Попробуй это:

Function SetFullscreenMode:Boolean;
Var
  DeviceMode : TDevMode;
Begin
  With DeviceMode do
  Begin
    dmSize:=SizeOf(DeviceMode);
    dmBitsPerPel:=32;
    dmPelsWidth:=1024;
    dmPelsHeight:=768;
    dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
    Result:=False;
    If ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
    Then Exit;
    Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
  End;
End;

Разумеется разрешение своё поставь

[mihali4]

Или вот так:

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;