Автоматизируйся с xStarter

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

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

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

Первый же поиск дает результат: http://www.delphisources.ru/pages/faq/b ... ution.html

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;

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