procedure UITextOut(_color: Cardinal;
_x, _y: Integer;
_text: PChar;
_count: Integer);
var
dc: HDC;
font: HFont;
begin
dc := GetDC(0);
SetTextColor(dc, _color);
//_color可以用类似RGB($0, $0, $0)赋值;
SetBkMode(dc, TRANSPARENT);
SetBkColor(dc, GetBkColor(dc));
font := CreateFont(24, 8, 0, 0, FW_BOLD, 0, 0, 0, GB2312_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
DEFAULT_PITCH or FF_SCRIPT, '楷体_GB2312');//不做参数修改了;
SelectObject(dc, font);
TextOut(dc, _x, _y, _text, _count);
ReleaseDC(0, dc);
end;