5,387
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
S: WideString;
begin
S := '版权所有?2007接分';
Word(S[5]) := 174;
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 12;
ExtTextOutW(Canvas.Handle, 0, 0, 0, nil, PWideChar(S), Length(S), nil);
end;