delphi编程取得系统界面颜色

　　制作程序时，被Windows的界面色彩弄得头昏眼花，设计时是一种颜色，色彩搭配得挺好的，可是到了用户手里字体却看不清楚，严重影响了程序效果，所以结合操作系统调配颜色将是令用户用得开心的不可多得的步骤：

　　下面列出了操作系统界面各部位的名称，要取得系统颜色，把参数换一下就可以了。

　　COLOR_SCROLLBAR　　　　　　滚动条
COLOR_BACKGROUND　　　　 　桌面背景
COLOR_ACTIVECAPTION 　 　　活动窗口标题
COLOR_INACTIVECAPTION　　　非活动窗口标题
COLOR_MENU　　　　　　 　　菜单
COLOR_WINDOW　　　　　 　　窗口背景
COLOR_WINDOWFRAME　　　　　窗口框
COLOR_MENUTEXT　　　　 　　窗口文字
COLOR_WINDOWTEXT　　　 　　3D 阴影 (Win95)
COLOR_CAPTIONTEXT　　　　　标题文字
COLOR_ACTIVEBORDER　　 　　活动窗口边框
COLOR_INACTIVEBORDER　 　　非活动窗口边框
COLOR_APPWORKSPACE　　 　　MDI 窗口背景
COLOR_HIGHLIGHT　　　　　　选择条背景
COLOR_HIGHLIGHTTEXT　　　　选择条文字
COLOR_BTNFACE　　　　　　　按钮
COLOR_BTNSHADOW　　　　　　3D 按钮阴影
COLOR_GRAYTEXT　　　　 　　灰度文字
COLOR_BTNTEXT　　　　　　　按钮文字
COLOR_INACTIVECAPTIONTEXT　非活动窗口文字
COLOR_BTNHIGHLIGHT　　 　　3D 选择按钮}
var i:integer;
begin
//取得活动窗口标题颜色
i :=GetSysColor(COLOR_ACTIVECAPTION);
Label1.Caption:=颜色代码为：+IntTostr(i);
end;