怎样动态改变屏幕分辨率？谢谢！

Question

Screen可以改变:Screen->Height,Screen->Width等

Answer 1

Screen.Height、Screen.Width为只读属性，不能直接修改，用以下函数试试：function DynamicResolution(X, Y: word): BOOL; 
var 
lpDevMode: TDeviceMode; 
begin 
Result := EnumDisplaySettings(nil, 0, lpDevMode); 
if Result then 
begin 
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; 
lpDevMode.dmPelsWidth := X; 
lpDevMode.dmPelsHeight := Y; 
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; 
end 
end; 

Answer 2

在注册表HKEY_LOCAL_MACHINE\Config\0001\Display\Settings下的Resolution就是屏幕的分辨率，用delphi可读取，也可设置