Скачать: CL | DM;

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

← →
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]

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

---

← →
Anatoly Podgoretsky ©   (2004-11-04 19:54) [6]

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

---

← →
Defunct ©   (2004-11-05 03:32) [7]

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

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

Screen.Monitors[..].Width/Height

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c