Разрешение экрана

← →
V l a d i m i r (2004-11-04 11:34) [0]

Как проверить, какое разрешение экрана на компьютере пользователя, если необходимо изменить его при запуске программы (800 на 600 точек) и после завершения работы с программой вернуть исходное разрешение?

← →
digger © (2004-11-04 11:37) [1]

Проверить можно используя объект Screen (свойства Width, Heigth)

← →
Pavel_Pavel © (2004-11-04 11:39) [2]

Смотрите в faq, там где-то было, точно помню

← →
Семен Сорокин © (2004-11-04 11:45) [3]

ChangeDisplaySettings

← →
DelphiN! © (2004-11-04 16:35) [4]

Пример : SetScreen(16,800,600,80); {16 бит цвет, 800х600, 80Гц.}

procedure SetScreen(BPP:byte;width,height,FR:integer);
var
D: TDevMode;
h: HWND;
begin
h:=0;
D.dmDeviceName:="DISPLAY";
D.dmBitsPerPel:=BPP;
D.dmDisplayFrequency:=FR;
D.dmPelsWidth:=Width;
D.dmPelsHeight:=Height;
D.dmFields:=DM_BITSPERPEL+DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY;
D.dmSize:=SizeOf(D);
if ChangeDisplaySettings(D,CDS_TEST)=DISP_CHANGE_SUCCESSFUL then
ChangeDisplaySettings(D,CDS_UPDATEREGISTRY)
else
MessageBox(h,"Данный видеорежим не потдерживается вашей видеокартой",
"Новый видеорежим не установлен", MB_ICONWarning);
end;

← →
heady (2004-11-04 19:30) [5]

и не забудь ярлычки на место вернуть!!!

V l a d i m i r (04.11.04 11:34)
Проверить как сказали Screen
А за изменить отрывать кое что и лучше по самую шею.

> Проверить можно используя объект Screen (свойства Width,
Heigth)

Не годится если в системе более одного монитора.
в общем случае:

Screen.Monitors[..].Width/Height

Разрешение экрана Найти похожие ветки