Delphi 如何编写分辨率
我有个老游戏 分辨率是640x480 很低 如何才能提高到 800x600
希望 好新人 能给出一段代码 或者 一些例子 参考也好
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