Delphi 设定Windows屏幕分辨率的方法和示例代码
于 2023-04-22 发布
文件大小:6.54 kB
0 184
下载积分: 2
下载次数: 1
代码说明：
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
下载说明：请别用迅雷下载，失败请重下，重下不扣分！
发表评论
