Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: 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 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
1-1099510216
tormoz
2004-11-03 22:30
2004.11.21
Работа с Word (туда и обратно)


14-1099641955
d[D]E
2004-11-05 11:05
2004.11.21
Вертикальный DBGrid


1-1100096758
klerk
2004-11-10 17:25
2004.11.21
Открытие Excel-файла двумя пользователями


3-1098888232
Maverick
2004-10-27 18:43
2004.11.21
ламерский вопрос про TSQLQuery


14-1099910043
GrayFace
2004-11-08 13:34
2004.11.21
Нужна спецификация JavaScript