当前位置: 开源爱好者 » Delphi源码 » UI界面 » 详情页

Delphi 设定Windows屏幕分辨率的方法和示例代码

  • 时间:2018-02-13
  • 测试环境:Delphi7+
  • 源码概述:分辨率

Delphi 设定Windows屏幕分辨率的方法和示例代码:
  function TForm1.DynamicResolution(X, Y: word): BOOL;
  var
   lpDevMode: TDeviceMode;
  begin
   Result := 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

Delphi 设定Windows屏幕分辨率的方法和示例代码测试效果图
源码包大小:6.53K
该源码已累计下载了:
相关Delphi源码:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图