Изменение разрешения экрана

[Alex Cones]

Реально ли с помощью Delphi изменить разрешение экрана во время выполнения программы? Пробовал изменить параметры Screen.Widht выводит ошибку и завершает программу.

[uberchel]

Узнать можно так:

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;

А вот, функция полноэкранного развертывания

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;

Помог?, если да, то нажмите на весы с лева =)

[Alex Cones]

Огромное спасибо!

P.S. Только что запустил)) о_Огромное спасибо))