发信人: kingron(金龍)
整理人: teleme(2001-01-18 16:54:37), 站内信件
|
你看一下帮助就可以了。因为列举的第一中分辨率的可能组合，如果要用其他的把那个0改成1,2,3,4......即可！
//Ex:SetRes(800,600);
// SetRes(640,480);
procedure SetRes(XRes, YRes: DWord);
var
OLDX,OLDY:INTEGER;
lpDevMode : TDeviceMode;
begin
lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth:=XRes;
lpDevMode.dmPelsHeight:=YRes;
ChangeDisplaySettings(lpDevMode, 0);
end;
为何不论屏幕分辨率为多少，OLDX,OLDY 的值总是640，480？
----
██████
█┏━━┓█
█┃之金┃█ 访问Delphi版请点击这儿：Delphi版直达快车
█┃印龍┃█
█┗━━┛█
██████ |
|