Текущий архив: 2002.03.25;
Скачать: CL | DM;
Вниз
Как программно поменять разрешение экрана Найти похожие ветки
← →
Andrey196 © (2001-12-23 20:06) [0]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
:)
← →
Вадим © (2001-12-23 22:42) [1]
function SetFullscreenMode(ModeIndex: Integer): Boolean;
var
DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize := SizeOf(DeviceMode);
dmBitsPerPel := 32;
dmPelsWidth := 800;
dmPelsHeight := 600;
dmDisplayFrequency := 85;
dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT
or DM_DISPLAYFREQUENCY;
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;
begin
ChangeDisplaySettings(T, CDS_FULLSCREEN);
end;
Страницы: 1 вся ветка
Текущий архив: 2002.03.25;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c