DELPHI ИЗМЕНИТЬ РАЗРЕШЕНИЕ ЭКРАНА
Для изменения разрешения экрана в Delphi, можно воспользоваться функцией ChangeDisplaySettings из модуля Windows.
Перед использованием функции необходимо объявить тип DEVMODE, который содержит информацию о настройках дисплея:
type PDevMode = ^TDevMode; TDevMode = packed record dmDeviceName: array[0..CCHDEVICENAME-1] of Char; dmSpecVersion: Word; dmDriverVersion: Word; dmSize: Word; dmDriverExtra: Word; dmFields: DWORD; dmOrientation: Smallint; dmPaperSize: Smallint; dmPaperLength: Smallint; dmPaperWidth: Smallint; dmScale: Smallint; dmCopies: Smallint; dmDefaultSource: Smallint; dmPrintQuality: Smallint; dmColor: Smallint; dmDuplex: Smallint; dmYResolution: Smallint; dmTTOption: Smallint; dmCollate: Smallint; dmFormName: array[0..CCHFORMNAME-1] of Char; dmUnusedPadding: Word; dmBitsPerPel: Word; dmPelsWidth: DWORD; dmPelsHeight: DWORD; dmDisplayFlags: DWORD; dmDisplayFrequency: DWORD; dmICMMethod: DWORD; dmICMIntent: DWORD; dmMediaType: DWORD; dmDitherType: DWORD; dmReserved1: DWORD; dmReserved2: DWORD; dmPanningWidth: DWORD; dmPanningHeight: DWORD; end;
Затем, необходимо создать переменную типа DEVMODE и заполнить её нужными значениями:
var DevMode: TDevMode;begin ZeroMemory(@DevMode, SizeOf(DevMode)); DevMode.dmSize := SizeOf(DevMode); DevMode.dmPelsWidth := 1920; // ширина экрана DevMode.dmPelsHeight := 1080; // высота экрана DevMode.dmBitsPerPel := 32; // глубина цвета DevMode.dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;end;
Затем вызвать функцию ChangeDisplaySettings:
if ChangeDisplaySettings(@DevMode, CDS_UPDATEREGISTRY) <> DISP_CHANGE_SUCCESSFUL then ShowMessage('Невозможно изменить разрешение экрана.');
Функция вернет DISP_CHANGE_SUCCESSFUL, если изменение настроек произошло успешно, в противном случае следует вывести сообщение об ошибке.
Как изменить разрешение экрана расширить разрешения экрана на компьютере 1024×600 #3
Как изменить разрешение Ubuntu в VirtualBox ?
разрешение экрана не соответствует монитору windows 10
Добавляем своё разрешение для монитора в Linux
Prototype КАК СМЕНИТЬ РАЗРЕШЕНИЕ ЭКРАНА - Prototype КАК СДЕЛАТЬ Full HD
32 Секретные Комбинации Для Вашей Клавиатуры
Как установить разрешение экрана Windows 10.Настройка разрешение экрана монитора