我怎么样才能把，我做的程序放入，Windows的任务栏状态区（taskbar status area）哪有这方面的便例子也可以!

Question

给你一段代码参考吧。
需要包含:use shellapiWM_USER_NOTIFYICON=WM_USER+500;
///自定义消息。procedure OnMyNotifyIcon(var Msg:TMessage);message WM_USER_NOTIFYICON;
//图标点击回调函数。procedure TForm1.Button1Click(Sender: TObject);
var
    tnd:pNOTIFYICONDATA;
begin
    new(tnd);
    tnd.cbSize:=sizeof(NOTIFYICONDATA);
    tnd.Wnd := Handle;
    tnd.uID := 0;
    tnd.uFlags:=(NIF_MESSAGE) or (NIF_ICON or NIF_TIP);
    tnd.uCallbackMessage := WM_USER_NOTIFYICON;
    tnd.hIcon := LoadIcon(HInstance,'MAINICON');
    Shell_NotifyIcon(NIM_ADD,tnd);
    FreeMem(tnd);
end;
//---------------------------------------------------------------------------
procedure TForm1.OnMyNotifyIcon(var Msg:TMessage);
var
    Pos:TPoint;
begin
    case Msg.LParam of
        WM_RBUTTONDOWN:
        begin
            SetForegroundWindow(Handle);
      GetCursorPos(Pos);
            PopupMenu1.Popup(pos.x,Pos.y);
        end;
    end;
end;

Answer 1

很简单的问题。有两种方法
1：从网上下载这个控件
2：
var
  TNID:PNotifyIconData;
  HCurrentIcon1:TIcon;Procedure NotifyIcon(dwMessage:DWORD;HHIcon:TIcon;Tip:PChar);
begin
  if(dwMessage=NIM_ADD) or(dwMessage=NIM_DELETE) or (dwMessage=NIM_MODIFY) then
  begin
    With TNID^ do
    begin
      Wnd:=Form1.Handle;
      uiD:=100;
      uCallBackMessage:=Tray_Message;
      uFlags:=NIF_MESSAGE;
    end;
    if(HHIcon<>nil) then
    begin
      TNID^.UFlags:=TNID^.uFlags or NIF_ICON;
      TNID^.hIcon:=HHICON.Handle;
    end;
    if(Tip<>NIl) then
    begin
      TNID^.uFlags:=TNID^.uFlags or NIF_Tip;
      StrPcopy(TNID^.szTip,Tip);
    end;
    Shell_NotiFyIcon(dwMessage,TNID);
  end;
end;begin
  TNID:=new(PNOTIfYICONDATA);
  HCurrentIcon1:=TIcon.Create;
  HCurrentIcon1.LoadFromFile('blue.ico');
  NotifyIcon(NiM_ADD,HCurrentIcon1,PChar('AntoAnte'));
end;

Answer 2

我是刚刚学DELPHI的，最好哪有列子，gzmhero(hihihi)要不你做一个简单例子给我，我会在在做完我的DELPHI下第一个商品软件时送您一分的，谢谢!　

Answer 3

to:linjifan(linjifan):
留下email。

Answer 4

thank 大家了!这个问题我现在搞定了! [email protected]