大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
posts - 236, comments - 7, trackbacks - 0, articles - 0
  新随笔 :: 联系 :: 订阅 订阅 :: 管理

公告

delphi 动态更改屏幕分辨率(转)

Posted on 2015-06-23 09:31 大悟还俗 阅读(...) 评论(...) 编辑 收藏

一、如何动态更改屏幕分辨率
  有许多小工具可以在不重新启动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模式!');
  好了,试一下吧!