| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ChangeDisplaySettings не работает...
Igit © (2003-05-09 13:45:00)
вернее работает только в таком случае:
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:00) [1]
У меня все и всегда работает. WinXp RUS SP1, Delphi 7 , KOLnMCK 1.73
| |
