精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:kingron!SOS 为何ENUMDISPLAYSETTING.....

主题:Re:kingron!SOS 为何ENUMDISPLAYSETTING.....
发信人: 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版直达快车
█┃印龍┃█
█┗━━┛█
██████

[关闭][返回]