procedure TForm1.btn1Click(Sender: TObject);var  c:TCanvas;begin  c:= TCanvas.Create;  c.Pen.Width  := 5;  c.Font.Size := 20;  c.Font.Name := '微软雅黑';  c.Font.Color := clRed;  c.Brush.Color := clBlack;  try    //c.Handle := GetDC(0);    c.Handle := GetWindowDC(1181728); // 这句是在一个指定窗体上写字    c.TextOut(20,20,'曲终的BLOG');  finally    c.Free;  end;end;