注册 登录
编程论坛 Delphi论坛

Delphi 如何编写分辨率

gaoshenghao 发布于 2010-04-04 23:39, 657 次点击
我有个老游戏 分辨率是640x480 很低
如何才能提高到  800x600
希望 好新人 能给出一段代码  或者  一些例子 参考也好
1 回复
#2
kt232010-04-17 19:05
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
1