У меня вопрос?????????????????

← →
delfer.ru (2002-12-31 05:20) [0]

Как можно изменить разрешение экрана из моей проги нажатием на кнопку. желательно на примере.

Всех с новым годом!!!!!!!!!!!!!!

← →
Suntechnic © (2002-12-31 07:02) [1]

ChangeDisplaySettings

Попробуй этот код :)
Спопил с 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;

У меня вопрос????????????????? Найти похожие ветки