如何将工程最小化后的图标加到system tray中。。。。。

Question

如何将工程最小化后的图标加到system tray中。。
请赐教！。。

Answer 1

如果是自己写则要用到APi
如果是想用到控件 RX包内就有此功能的控件

Answer 2

那在哪里可以找到RX包呢？
用什么Api函数呢？Thank  you。

Answer 3

写api烦！如相应的控件，麻烦给我发一份过来：
email:[email protected]
thank you!

Answer 4

SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);procedure Tdispatcha.OnIconNotify(var Message: TMessage);
var
  AC: LongInt;
  CP: TPoint;
begin
  AC := Message.LParam;
  if AC = WM_RBUTTONDOWN then
  begin
    if dispatcha.Visible then
      exit;
    GetCursorPos(CP);
    PopMenudis.Popup(CP.X, CP.Y);
  end;
end;
procedure Tdispatcha.FormPaint(Sender: TObject);
begin
  hide;
end;