تغییر 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 و ... استفاده کنید
پاسخ با نقل قول