Delphi中如何获得屏幕当前的显示模式（分辨率，颜色数等）信息(30分)

A.T.T.

用screen变量：

screen.Width;
screen.Height;
screen.PixelsPerInch;
具体可以看delphi的帮助TScreen

分辨率：
Width := GetSystemMetrics(SM_CXSCREEN);
Height := GetSystemMetrics(SM_CYSCREEN);

颜色数：
var
BPP: Integer; // Bits per pixel
begin
BPP := GetDeviceCaps(GetDC(GetDesktopWindow),BITSPIXEL);
if(BPP > 2) and (BPP < 8) then
begin
ShowMessage('16color');
end
else if(BPP = 8) then
begin
ShowMessage('256color');
end
else if(BPP = 16) then
begin
ShowMessage('16bit');
end
else if(BPP = 24) then
begin
ShowMessage('24bit');
end;
end

欢迎访问vcl控件讨论区 http://vcl.xilubbs.com
同时也是技巧讨论区

那么如何知道当前屏幕刷新率呢？

请继续或结束

多人接受答案了。