Смена разрешения

[MIC]

Приветствую. Такая проблема: нужно чтобы при запуске программы разрешение экрана менялось скажем на "800 на 600". Подскажите. Если ответ где то есть то подскажите где. Не нашел. Заранее благодарю.

[Kotofff]

DelphiWorld :

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;

[MIC]

Благодарю!

[DomiNick]

А программы работающие в "полноэкранном режиме" также делают?..
При сворачивании таких программ Рабочий Стол вроде остаётся как был...

[goblinyara]

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

[mflat]

Создать две переменные OldX и OldY типа integer. Запомнить текущие Screen.Width и Screen.Height экрана через OldX и OldY. Поменять разрешения на другое. При выходе программы через OldX и OldY восстанавливать старое разрешение:

ChangeDisplayResolution(OldX, OldY: word);

[Kotofff]

В полноэкранном режиме чуть-чуть подругому. DelphiWorld :

function SetFullscreenMode: Boolean;
var DeviceMode: TDevMode;
begin
  with DeviceMode do
  begin
    dmSize := SizeOf(DeviceMode);
    dmBitsPerPel := 16;
    dmPelsWidth := 640;
    dmPelsHeight := 480;
    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;

procedure RestoreDefaultMode;// возврат с полного экрана
var
  T: TDevMode absolute 0;
begin
  ChangeDisplaySettings(T, CDS_FULLSCREEN);
end;

[DomiNick]

Ну... Иногда пишу процедуру на Делфи... А потом оказывается такая уже есть готовая - просто я не знаю...

Понятно что можно например при запуске делать 800х600 а при закрытии возвращать обратно...
Просто может может есть другой способ - чтоб настройки Рабочего Стола не менялись, а программа была полноэкранной?

[DomiNick]

Ну ё-моё...
У меня прям болезнь просто...
Пока своё сообщение-ответ печатаю - несколько новых постов появляется...

[Kotofff]

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

Просто может может есть другой способ - чтоб настройки Рабочего Стола не менялись, а программа была полноэкранной?

Здесь думаю, что форму сделать без заголовка (BorderStyle:=bsNone) размеры задать = размеру экрана, поставить FormStyle:=fsStayOnTop