|
تغيير Resolution مانيتور
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;
نكته بسيار مهم:
اگر اعداد غير استاندارد براي Resolutoin مانيتور وارد كنيد احتمال آسيب رسيدن
به مانيتور وجود دارد، از رزولوشن هاي استاندارد مثل 320*240 ، 640*480 ، 1024*768
و ... استفاده كنيد. | |
|
