{函数}
function SetScreen(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;
{测试}
procedure TForm1.Button1Click(Sender: TObject);
begin
SetScreen(1024, 768);
end;
设置屏幕分辨率的函数 - 回复
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:获取各种编码的识别符
下一篇:汉字与多字节编码的转换 - 回复
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
保真调整图像分辨率
保持原始比例进行缩放
高宽比 图像缩放 保真缩放 -
Unity下如何播放8K超高分辨率的RTMP流?
在Unity中使用RTMP播放器播放8K流,需要考虑到多个方面的因素和技术要求。以下是一个详细的步骤和要点概述,帮助实现这一目标:1. 选择合适的RTMP播放器插件首先,需要选择一个支持8K视频流播放的RTMP播放器插件。并非所有插件都支持8K分辨率,据我们了解,好多Unity的RTMP播放器,连4K都非常吃力。因此,在选择插件时,需要仔细阅读插件的文档和说明,确认其是否支持8K视频流。大牛直播S
Unity RTMP播放器 Unity RTSP播放器 Unity3D RTMP播放 Unity3D RTSP播放器 大牛直播SDK