分辩率和颜色
function SetColorDepth_xy(Depth,w,h:integer):boolean;
var
lpDevMode:TDeviceMode;
begin
Result:=EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := dm_PelsWidth or dm_PelsHeight or dm_BitsPerPel;
lpDevMode.dmBitsPerPel:=depth;
lpDevMode.dmPelsWidth:=w;
lpDevMode.dmPelsHeight:=h;
Result := ChangeDisplaySettings(lpDevMode, 0)=DISP_CHANGE_SUCCESSFUL;
end;
end;
SetColorDepth_xy(8,800,600);//800*600+256色
SetColorDepth_xy(16,1024,768);//1024*768+16位色