заголовок окна

[s1s1s1]

как можно изменить цвет заголовка чужого окна

[mihali4]

Наверное так:

var
   ACanvas: TCanvas;
 begin
   inherited;
   ACanvas := TCanvas.Create;
   try
     ACanvas.Handle := GetWindowDC(SomeForm.Handle);
     with ACanvas do
      begin
       Brush.Color := clActiveCaption;
       Font.Name := 'Tahoma';
       Font.Size := 8;
       Font.Color := clred;
       Font.Style := [fsItalic, fsBold];
       TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER), Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) / 2) + 1, ' Some Text');
     end;
   finally
     ReleaseDC(SomeForm.Handle, ACanvas.Handle);
     ACanvas.Free;
   end;
 end;

Как получить хэндл чужого окна (SomeForm) - на форуме обсуждалось неоднократно.