200分吐血求： 类似任务栏的控件(200分)

我现在有一个appbar14 ，但不好用！请各位大侠提供，或发E-MAIL告诉哪儿有别的好用的（不能和TIMER冲突）！


还有一个问题：
实现超级联接，用shellexcute可以，但如果有socketconnection 活动，就冲突。好象shellexcute的handle 是当前的。有没有别的办法，发原码！


解决问题给你200分！我吐血也值！

第一个问题：
可以自己完成，不需要其他的控件。
下面是操作任务栏小图标的一些代码（可以添加、删除）。不只你是否用得着。
主要函数：Shell_NotifyIcon()，你可以参考MSDN。
uses shellapi;

const
wm_mycallback = wm_user+500;

public
procedure onnotifyicon(var nmsg:Tmessage);message wm_mycallback;

var
my_iconNOTIFYICONDATA;

procedure Tform1.onnotifyicon (var nmsg:tmessage);
var pos:Tpoint;
begin
case nmsg.LParam of
wm_lbuttondown:
form1.Visible :=not form1.Visible ;
wm_rbuttondown:
begin
getcursorpos(pos);
popupmenu1.Popup (pos.x,pos.y);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
new(my_icon);
my_icon^.Wnd :=form1.Handle ;
my_icon^.uID :=0;
my_icon^.uFlags :=NIF_ICON+NIF_MESSAGE+NIF_TIP;
my_icon^.hIcon :=form1.Icon.Handle ;
MY_ICON^.ucallbackmessage := wm_mycallback;
my_icon^.sztip:='光驱';
Shell_NotifyIcon(NIM_ADD ,my_icon);
SetWindowRgn(Handle,CreateRectRgn(0,0,0,0),true);
end;

RxLib

>不能和TIMER冲突
不会冲突。
delphi3从入门到精通有例子。

RXTrayIcon,在深度历险中还有很多

控件TBNArea,不错.我用过表现不错.
这类控件本来就不预timer冲突.

答非所问，人家有了appbar14，是任务栏控件，不是TraIcon.

试试Toolbar97

我也想要。
foxnt163@163.net

1、左右手说的对，TB97!
2、不知你用哪个调用的shellexcute，可以的话，把handle换成parent.handle试试。
　　即让他的parent来调用。

www.net-wing/kangwei去下载

我有一个ElAppBar.pas，但不是控件。把ElAppBar.pas加入工程，你的form要从TElAppBar
继承下来，我把ElAppBar.pas和例子（for CB）发给你，

多人接受答案了。