Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];
Вниз
У меня вопрос????????????????? Найти похожие ветки
← →
delfer.ru (2002-12-31 05:20) [0]Как можно изменить разрешение экрана из моей проги нажатием на кнопку. желательно на примере.
Всех с новым годом!!!!!!!!!!!!!!
← →
Suntechnic (2002-12-31 07:02) [1]
ChangeDisplaySettings
← →
CAMOBAP (2002-12-31 10:59) [2]Попробуй этот код :)
Спопил с 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
