//下面是一個Delphi單元的代碼，它把程序圖標放在提示欄窗口中:

{--代碼開始--} 

unit HintX; 

interface 

uses 
  Windows, Messages, Controls; 

type 
  TIconHintX = class(THintWindow) 
  protected 
    procedure Paint; override; 
  public 
    function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override; 
  end; 

implementation 

uses Forms; 

{ TIconHintX } 

{-為了放置一個圖標，重新計算提示欄窗體的大小:-} 
function TIconHintX.CalcHintRect(MaxWidth: Integer; const AHint: string; 
  AData: Pointer): TRect; 
begin 
  Result := inherited CalcHintRect(MaxWidth, AHint, AData);     Result.Right := (Length(AHint) * 5) + Application.Icon.Width; 
  Result.Bottom := (Application.Icon.Height) * 2; 
end; 

procedure TIconHintX.Paint; 
const 
  MARGIN = 5; 
begin 
  inherited; 
  Canvas.Draw(MARGIN, MARGIN * 5, Application.Icon); 
  SendMessage(Handle, WM_NCPAINT, 0, 0); //畫提示欄邊框 
end; 

initialization 
  //把我們的新類設置為默認的提示欄類: 
  HintWindowClass := TIconHintX; 


{--代碼結束--} 
end. 
// 為了看到效果, 把這個單元放置在你的應用程序的引用單元列表中。