• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

delphi动态更改屏幕分辨率（转）

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
http://www.cnblogs.com/key-ok/p/4594674.html 一、如何动态更改屏幕分辨率 　　有许多小工具可以在不重新启动Windows的条件下，动态更改屏幕分辨率。你是不是 也想自己动手做一个呢？请在interface段中加入下面一句 　　function Resolution(X,Y:word):boolean； 　　然后在implementation段中写入如下代码： 　　function Resolution(X,Y:word):boolean； 　　var 　　DevMode:TDeviceMode; 　　begin 　　Result:=EnumDisplaySettings(nil,0,DevMode); 　　if Result then 　　begin 　　DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT; 　　DevMode.dmPelsWidth:=X; 　　DevMode.dmPelsHeight:=Y; 　　Result:=ChangeDisplaySettings(DevMode,0)=DISP_CHANGE_SUCCESSFUL; 　　end; 　　end; 　　接着，在form中放个button，caption为“800×600"，然后在其OnClick事件中写下 　　if Resolution(800,600) then ShowMessage('800×600模式!')； 　　好了，试一下吧！

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
折腾到死：matlab7.0 安装发布时间：2022-07-18
下一篇：
matlab 打不开excel文件发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap