急问：怎样改变窗口标题栏标题的颜色？在线等待

Question

我想改变窗口标题栏标题的颜色，
不知道那位大侠能赐教一二。
先谢了  ：）

Answer 1

如何画啊？
听说用什么消息或API可以
但具体怎么做，还请详细指点
谢谢

Answer 2

procedure TForm1.OnWMNCACTIVE(var msg: TWMNCACTIVATE);
var fmsg:TMessage;
begin
  inherited;
  if msg.Active then
  begin
    fmsg.Msg:=msg.Msg;
    fmsg.WParam:=integer(msg.Active);
    self.OnWMNCPAINT(fmsg);
  end;
end;procedure TForm1.OnWMNCPAINT(var msg: TMessage);
var cans:TCanvas;dc:HDC;
begin
  inherited;
  dc:=getwindowdc(self.Handle);
  cans:=TCanvas.Create;
  cans.Handle:=dc;
  cans.Brush.Color:=clred;
  cans.Rectangle(0,0,100,20);
  releasedc(self.Handle,dc);
  cans.Free;
end;