Как грамотно переключаться в другой режим?

← →
Свич (2005-08-22 01:14) [0]

Как переключиться в режим 800*600, я знаю. Но дело в том, что когда в этом режиме, я хочу временно переключиться на Виндос, то у меня сохраняется всё тот же режим 800*600, а не тот который был до запуска программы. Как бы мне это поправить?

← →
grouzd[E]v © (2005-08-22 14:33) [1]

//поставить (ширина, высота, глубина цвета)
function SetFullscreenMode(width, height, color_depth : integer) : Boolean;
var
DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize := SizeOf(DeviceMode);
dmBitsPerPel := color_depth;
dmPelsWidth := width;
dmPelsHeight := height;
dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
Result := ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
if Result then ScreenModeChanged := True;
end;
end;

/вернуть
procedure RestoreDefaultMode;
var
DeviceMode : TDevMode absolute 0;
begin
ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN);
end;

---
... we are walking on a thin line and you better avoid the risk ...

← →
Свич (2005-08-23 01:22) [2]

> grouzd[E]v © (22.08.05 14:33) [1]

Прочитайте первую фразу в моём сообщении.

← →
KilkennyCat © (2005-08-23 01:25) [3]

Вероятно, следует определить, какие события возникают, когда Ваша программа перестает быть активной...

← →
grouzd[E]v © (2005-08-23 02:22) [4]

> Прочитайте первую фразу в моём сообщении.

//вернуть
procedure RestoreDefaultMode;
var
DeviceMode : TDevMode absolute 0;
begin
ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN);
end;

Ну и?

---
... we are walking on a thin line and you better avoid the risk ...

← →
Свич (2005-08-23 02:40) [5]

Вызвыть RestoreDefaultMode. В чем проблема то.
Если не получится, то перед изменением сохранить настройки, а потом восстанавливать их

---
... we are walking on a thin line and you better avoid the risk ...

Как грамотно переключаться в другой режим? Найти похожие ветки