Установление разрешения экрана

Обсуждения желаемых нововведений к программе
Ответить
avmaksimov
Ас
Сообщения: 907
Зарегистрирован: Чт май 08, 2008 2:48 pm
Откуда: г. Москва, Россия
Благодарил (а): 6 раз
Поблагодарили: 16 раз
Контактная информация:

Установление разрешения экрана

Сообщение avmaksimov » Ср фев 15, 2012 7:56 pm

Можно добавить такое действие, чтобы запрашивались разрешения и потом можно было устанавливать выбранный?
С уважением, Андрей.

Аватара пользователя
Alex
Ас
Сообщения: 2833
Зарегистрирован: Вт апр 05, 2005 3:28 pm
Откуда: Kaliningrad City
Благодарил (а): 2 раза
Поблагодарили: 91 раз
Контактная информация:

Re: Установление разрешения экрана

Сообщение Alex » Чт фев 16, 2012 7:16 am

Если есть код на Delphi, как такое сделать, то могу добавить в программу.

avmaksimov
Ас
Сообщения: 907
Зарегистрирован: Чт май 08, 2008 2:48 pm
Откуда: г. Москва, Россия
Благодарил (а): 6 раз
Поблагодарили: 16 раз
Контактная информация:

Re: Установление разрешения экрана

Сообщение avmaksimov » Сб мар 31, 2012 10:42 am

Alex писал(а):Если есть код на Delphi, как такое сделать, то могу добавить в программу.
Первый же поиск дает результат: http://www.delphisources.ru/pages/faq/b ... ution.html
С уважением, Андрей.

Hinix
Пассажир
Сообщения: 3
Зарегистрирован: Ср мар 19, 2014 8:00 pm
Благодарил (а): 0
Поблагодарили: 0

Re: Установление разрешения экрана

Сообщение Hinix » Вт окт 14, 2014 2:54 pm

avmaksimov писал(а):
Alex писал(а):Если есть код на Delphi, как такое сделать, то могу добавить в программу.
Первый же поиск дает результат: http://www.delphisources.ru/pages/faq/b ... ution.html
Там так написанно но как это применить на деле мне не очень понятно
Если можно по подробней

Нужно чтобы при смене разрешения на не стандартное то опять возвращалось на стандартное типо с проверкой в 2-3 секунды

Узнать можно так:

Screen.Width;
Screen.Height;

А поменять можно с помощью следующей процердуры:

procedure ChangeDisplayResolution(x, y: word);
var
dm: TDEVMODE;
begin
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := x;
dm.dmPelsHeight := y;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
end;

Hinix
Пассажир
Сообщения: 3
Зарегистрирован: Ср мар 19, 2014 8:00 pm
Благодарил (а): 0
Поблагодарили: 0

Re: Установление разрешения экрана

Сообщение Hinix » Вт окт 14, 2014 2:58 pm

Напишите пожалуйста у кого получилось смение разрешение экрана этой программой

Ответить