Архив форумов ЦИТФорума

[Denis]

Подсажите пожалуйста, как программно изменить разрешение монитора.(есть меню созданное в AutoPlayMenu Studio но желательночтобы разрешение на мониторе пользователя перключилось на 800X600).
Спасибо.

[Dim]

А на каком тебе языке???
Вот пример функции на делфи.
результат - булиновый
(true - разрешение поменялось, false - нет)

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