Delphi 如何编写分辨率 - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → Delphi 如何编写分辨率

标题：Delphi 如何编写分辨率

只看楼主

gaoshenghao

等　级：新手上路
帖　子：5
专家分：0
注　册：2010-4-4
结帖率：100%

楼主

问题点数：0 回复次数：1

Delphi 如何编写分辨率

我有个老游戏分辨率是640x480 很低
如何才能提高到 800x600
希望好新人能给出一段代码或者一些例子参考也好

搜索更多相关主题的帖子: 分辨率　 Delphi　编写　

2010-04-04 23:39

kt23

等　级：论坛游民
帖　子：13
专家分：10
注　册：2010-4-17

第 2 楼

得分:0

procedure SetRes(XRes, YRes: DWord);
var
lpDevMode : TDeviceMode;
begin
lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth:=XRes;
lpDevMode.dmPelsHeight:=YRes;
ChangeDisplaySettings(lpDevMode, 0);
end;

给你个函数，用法
SetRes(800,600);
有问题加我QQ602388155

2010-04-17 19:05

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-301696-1-1.html