Tray-ikoner som hober sig op i xp bundlinien

Så længe hver instans af dit program kører skal ikonet vel være der ?

Har du husket at fjerne ikonet når dit program lukker ?

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Shell_NotifyIcon(NIM_DELETE, @TrayIconData) then;
end;

mvh.

yes yes, mit tray-komponent er komplet og virker, men det er hvis et program ikke bliver rigtigt afsluttet, og det kan jo også være andre programmer, man ikke selv har lavet

...lukker spørgsmålet igen.
Fandt et hack af en løsning, men ikke en løsning som var særlig brugbar.

function winTaskBarHandle:tHandle;
begin
result:=findWindow('Shell_TrayWnd',nil)
end;

procedure mouseMoveRect(aRect:tRect;const aStep:byte=16);
var memP:tPoint;x,y:longInt;
begin
getCursorPos(memP);
with aRect do begin y:=bottom;
  while y>top do begin x:=right;
  while x>left do begin
    setCursorPos(x,y);sleep(10);dec(x,aStep)
  end;dec(y,aStep)
  end
end;
with memP do setCursorPos(x,y)
end;

procedure TForm1.Button1Click(Sender: TObject);
const ICON_AREA_WIDTH=200;
var aRect:tRect;
begin
getWindowRect(winTaskBarHandle,aRect);
aRect.left:=screen.width-ICON_AREA_WIDTH;
mouseMoveRect(aRect)
end;