WinAPI: GetTextColor 获取设备环境的文本颜色

//声明:
GetTextColor(
  DC: HDC    {设备环境句柄}
): COLORREF; {返回一个 Cardinal 类型的颜色值}


//举例:
var
  c: Cardinal;
begin
  c := GetTextColor(Canvas.Handle);
  ShowMessage(IntToStr(c));
end;