var
  ico: TIcon;
begin
  ico := TIcon.Create;
  ico.LoadFromFile('c:\xx.ico');
  Application.Icon.Handle := ico.Handle;
  ico.Free;
end;

引言: 怎样在WindowsXP任务栏的右下角显示我自定义的图标？谢谢指教