Description

This method change screen resolution using windows API.

Delphi code

procedure SetResolution(ResX, ResY: DWord);
var
    lDeviceMode : TDeviceMode;
begin
    EnumDisplaySettings(nil, 0, lDeviceMode);
    lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
    lDeviceMode.dmPelsWidth :=ResX;
    lDeviceMode.dmPelsHeight:=ResY;
    ChangeDisplaySettings(lDeviceMode, 0);
end;

Important:

Your monitor may damage if the entered values be incorrect. Use standard sizes.