ChangeDisplaySettings не работает...

← →
Igit © (2003-05-09 13:45) [0]

вернее работает только в таком случае:

procedure TForm1.Timer1Timer(Sender: PObj);
var DevMode: TDeviceMode;

begin
timer1.Enabled:=false;
DevMode.dmPelsWidth:=1024;
DevMode.dmPelsHeight:=768;
DevMode.DmBitsPerPel:=16;
DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;

case ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY) of
DISP_CHANGE_SUCCESSFUL: ShowMessage("Изменения прошли успешно.");
DISP_CHANGE_RESTART: ShowMessage("Необходима перезагрузка для вступления изменений в силу");
DISP_CHANGE_BADFLAGS: ShowMessage("Передан неверный набор флагов");
DISP_CHANGE_BADPARAM: ShowMessage("Неверные параметры.");
DISP_CHANGE_FAILED: ShowMessage("Драйвер видеоустройства не смог установить режим");
DISP_CHANGE_BADMODE: ShowMessage("Видеорежим не поддерживается");
end;

timer1.Enabled:=true;
end;

Все меняет, а если в кнопку вбить (без Timer1.Enab...)
то вылетает "Видеорежим не поддерживается"...

← →
Gandalf © (2003-05-09 14:57) [1]

У меня все и всегда работает. WinXp RUS SP1, Delphi 7 , KOLnMCK 1.73

ChangeDisplaySettings не работает... Найти похожие ветки