| |
 | |
| | ЗАДАТЬ РАЗРЕШЕНИЕ ЭКРАНА |
| | Для этого воспользуемся следующей функцией: |
| | function SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end; |
| | |
| | Пример, добавим на форму два компонента TButton и зададим события OnClick: |
| | |
| | var
OldWidth, OldHeight: integer; |
| | |
| | procedure TForm1.Button1Click(Sender: TObject);
begin
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);
SetScreenResolution(800, 600);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SetScreenResolution(OldWidth, OldHeight);
end; |
| | |
| | В результате чего при нажатии первой кнопки в переменные OldWidth и OldHeightсохраняются текущие значения и устанавливается разрешение 800 на 600. При нажатии второй кнопки восстанавливаются сохраненные значения. |
| | |
| | |
| | |
| | |
| | Источник: latiumsoftware.com |
