| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
У меня вопрос????????????????? [D5, WinXP]
delfer.ru © (2002-12-31 05:20:00)Как можно изменить разрешение экрана из моей проги нажатием на кнопку. желательно на примере.
Всех с новым годом!!!!!!!!!!!!!!
CAMOBAP (2002-12-31 10:59:00) [1]Попробуй этот код :)
Спопил с http://cydsoft.com/vr-online/12_2001/delphi1.htm
procedure TForm1.Timer1Timer(Sender: TObject);
var
dm : TDEVMODE;
x: array [1..3] Of integer;
y: array [1..3] Of integer;
x1,y1,n: integer;
begin
//Объявляем доступные разрешения
x[1]:= 640; y[1]:= 480;
x[2]:= 800; y[2]:= 600;
x[3]:= 1024; y[3]:= 768;
//Ok
n:= random (3);// случайно выбираем
x1:= x[n+1]; //...ширину
y1:= y[n+1]; //...высоту
{Устанавливаем}
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := x1;
dm.dmPelsHeight := y1;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
MessageDlg ("Could not initalize video driver"#13#10"Please, restart windows!",
mtError,[mbOk],0);
//идиотское сообщение об ошибке ;)
end;
Suntechnic (2002-12-31 07:02:00) [2]
ChangeDisplaySettings
| |
