如何让程序出现在状态栏, 而不是任务栏?

Question

用控件吧！  象 LMD 就可以的 。

Answer 1

我在哪里可以得到他? 要是想用API该怎么写呢? 

Answer 2

API可以使用下列程序。
var
    FTrayicon: TNotifyIconData;
procedure addicon;
begin
 with FTrayIcon do
 begin
  cbSize:= SizeOf(FTrayIcon);
  Wnd:= Handle;
  uID:= 1;
  uFlags:=  NIF_MESSAGE or NIF_ICON or NIF_TIP;
  hIcon:= LoadIcon(HInstance, 'MAINICON');
  uCallBackMessage := WM_TRAYICON;
  szTip:= '???';//这里是HINT提示
 end;
 Shell_NotifyIcon(NIM_ADD, @FTrayIcon);
end;procedure Eraseicon;
begin
 Shell_NotifyIcon(NIM_DELETE, @FTrayIcon);
end;再定做个自定义消息（比如叫做WM_TRAYICON）接收鼠标按钮，处理一下，弹出PopupMenu就OK.

Answer 3

编译出错, 提示: 没有TNotifyIconData类型

Answer 4

uses shellapi;
应该解决了吧？给分...

Answer 5

要在
USES
加入
shellapi