如何获得当前机器的所有分辨率(100分)

我现在制作安装包，设想在不同的分辨率下，执行不同的安装程序，各位有什么好的<br>建议没有。我知道可以用缩放技术，可控件看起来，太难看了。请支招。

EnumDisplaySettings

调用systemmetric Win Api函数

没必要这么烦。<br>screen.Width，screen.Height

<br>function GetDisplay(var cx:Cardinal;var cy:Cardinal;var rl:Cardinal):Boolean;<br>var tmpDC : HDC;<br>begin<br>&nbsp; Result := False;<br>&nbsp; tmpDC := GetDC(0);<br>&nbsp; try<br>&nbsp; &nbsp; cx := GetSystemMetrics(SM_CXSCREEN);<br>&nbsp; &nbsp; cy := GetSystemMetrics(SM_CYSCREEN);<br>&nbsp; &nbsp; rl := GetDeviceCaps(tmpDC,BITSPIXEL);<br>&nbsp; &nbsp; Result := True;<br>&nbsp; finally<br>&nbsp; &nbsp; ReleaseDC(0,tmpDC);<br>&nbsp; end;<br>end;<br><br>rl的含义：<br>&nbsp; &nbsp; 4 : = '16色';<br>&nbsp; &nbsp; 8 : = '256色';<br>&nbsp; &nbsp; 16: = '增强色(16位)';<br>&nbsp; &nbsp; 24: := '真彩色(24位)';<br>&nbsp; &nbsp; 32: := '真彩色(32位)';<br>&nbsp; <br>

if screen.width=1024 then xxxxxxxxx<br>else if screen.width=800 then xxxxxxxxxxx;

多人接受答案了。

谁能告诉我如何获得当前机器的所有分辨率和颜色值，并将其值放到COMBOBOX1和<br>COMBOXBOX2中呀？