Mega Code Archive
Change your screen resolution
<![CDATA[
Title: Change your screen resolution
Question: How can i modify my screen resolution...?
Answer:
Create a procedure
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;
Be careful with this routine, you can damage your monitor if put a wrong resolution.
I hope this will be useful 4YOU.
]]>