private
simgedegiskeni:tnotifyicondata;///simge değişkeni
procedure formcreate(sender:tobject);
simgedegiskeni.cbsize:=sizeof(simgedeskeni);
simgedegiskeni.wnd:=handle;
simgedegiskeni.uID:=1;
simgedegiskeni.uFLAGS:=nif_icon;
simgedegiskeni.hIcon:=application.Icon.Handle;
shell_notifyicon(nim_add,@ss);
end;
formonclose(sender:tobject);
begin
shell_notifyicon(nim_delete,@simgedegiskeni);
end;
end.