//声明:
GetTextColor(
DC: HDC {设备环境句柄}
): COLORREF; {返回一个 Cardinal 类型的颜色值}
//举例:
var
c: Cardinal;
begin
c := GetTextColor(Canvas.Handle);
ShowMessage(IntToStr(c));
end;
转载于:https://my.oschina.net/hermer/blog/319343