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.Настройка разрешение экрана монитора

Реклама
Новое
Реклама