大雀软件园

首页 软件下载 安卓市场 苹果市场 电脑游戏 安卓游戏 文章资讯 驱动下载
技术开发 网页设计 图形图象 数据库 网络媒体 网络安全 站长CLUB 操作系统 媒体动画 安卓相关
当前位置: 首页 -> 技术开发 -> 程序开发 -> 动态调整显示器的分辨率

动态调整显示器的分辨率

时间: 2021-07-31 作者:daque

windows供给给咱们两个api因变量,不妨动态调整显示器的分辨率, 她们是enumdisplaysettings()和 changedisplaysettings(), 底下这个例子即是了 function dynamicresolution(x, y: word): bool;var    lpdevmode: tdevicemode;beginresult := enumdisplaysettings(nil, 0, lpdevmode);if result then    begin    lpdevmode.dmfields := dm_pelswidth or dm_pelsheight;    lpdevmode.dmpelswidth := x;    lpdevmode.dmpelsheight := y;    result := changedisplaysettings(lpdevmode, 0) = disp_change_successful;    end;end;procedure tform1.button1click(sender: tobject);beginif dynamicresolution(640, 480) then    showmessage('now is 640*480');end;procedure tform1.button2click(sender: tobject);beginif dynamicresolution(800, 600) then    showmessage('now is 800*600');end;

热门阅览

最新排行

Copyright © 2019-2021 大雀软件园(www.daque.cn) All Rights Reserved.