我想让我的程序图标放在系统托盘区,怎么实现?比较菜!请给出代码,而且图标能响应鼠标左健显示一窗口,右兼弹出菜单可以退出,否则不给分!

解决方案 »

  1.   

    自己 查查 API 函数 啊 
      你 也可以 搜索 一下以前的帖子 有类似的问题 
         自己动手丰衣足实
      

  2.   

    在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知Windows在任务条右下角加入一个小图标,可惜该函数的详细说明未收入Delphi的帮助文档中,下面以一个简单的实例来说明如果使用该函数。 unit Unit1; interface { 记住在uses部分中包括 ShellAPI} 
    uses 
    Windows, Messages, SysUtils, Classes, 
    Graphics, Controls, Forms, Dialogs, 
    ShellAPI, StdCtrls; {自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息} 
    {自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息} 
    const MY_MESSAGE = WM_USER + 100; type 
    TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure FormPaint(Sender: TObject); 
    private 
    procedure OnIconNotify(var Message: TMessage); 
    message MY_MESSAGE; 
    public 
    { Public declarations } 
    end; var 
    Form1: TForm1; implementation {$R *.DFM} 
    {当小图标捕捉到鼠标事件时进入此过程} 
    {当小图标捕捉到鼠标事件时进入此过程} 
    procedure TForm1.OnIconNotify(var Message: TMessage); 
    const 
    Busy: Boolean = false; 
    begin 
    if not Busy then begin 
    Busy := true; 
    if Message.LParam=WM_LBUTTONDOWN then 
    if Application.MessageBox('Are you sure', 
    'Exit', MB_YESNO)=IDYES then Close; 
    Busy := false; 
    end; 
    end; {当主Form建立时通知Windows加入小图标} 
    procedure TForm1.FormCreate(Sender: TObject); 
    var 
    nid: TNotifyIconData; 
    begin 
    nid.cbSize := sizeof(nid); // nid变量的字节数 
    nid.Wnd := Handle; // 主窗口句柄 
    nid.uID := -1; // 内部标识,可设为任意数 
    nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄,可任意指?
    nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄,可任意指?nid.szTip := 'This is a test application'; // 提示字符串 
    nid.uCallbackMessage := MY_MESSAGE; // 回调函数消息 
    nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有?if not Shell_NotifyIcon(NIM_ADD, @nid) then begin 
    ShowMessage('Failed!'); 
    Application.Terminate; 
    end; 
    {将程序的窗口样式设为TOOL窗口,可避免在任务条上出现} 
    SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); 
    end; {程序被关闭时通知Windows去掉小图标} 
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
    var 
    nid: TNotifyIconData; 
    begin 
    nid.cbSize := sizeof(nid); // nid变量的字节数 
    nid.cbSize := sizeof(nid); // nid变量的字节数 
    nid.uID := -1; //内部标识,与加入小图标时的数一致 
    nid.Wnd := Handle; //主窗口句柄 
    Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标 
    Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标 
    end; {主窗口初始化完毕并显示时将激活Paint重画事件,此时将主窗口隐藏} 
    procedure TForm1.FormPaint(Sender: TObject); 
    begin 
    Hide; 
    end; end. 
      

  3.   

    给出一个Delphi示例。
    unit unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Forms, //Dialogs,
      StdCtrls, Menus, Controls, ShellApi; //加上ShellApiconst
      {自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
      MYTRAY_MESSAGE = WM_USER + 100;  //托盘图标返回消息type
      TMainForm = class(TForm)    TrayPopMenu: TPopupMenu;
          pop1: TMenuItem;
          pop2: TMenuItem;
          N3: TMenuItem;
          popExit: TMenuItem;
        //窗口事件
        procedure FormCreate(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormDestroy(Sender: TObject);
        procedure FormPaint(Sender: TObject);
        //弹出菜单事件
        procedure popExitClick(Sender: TObject);  private
        { Private declarations }
        TrayIconData : TNotifyIconData;      //定义托盘图标结构
        //托盘消息处理事件
        procedure MyTrayMessage(var message:TMessage);message MyTRAY_MESSAGE;
        
      public
        { Public declarations }
      end;var
      MainForm: TMainForm;implementation{$R *.DFM}
    //  窗口事件
    //----------------------------------------------------------------
    procedure TMainForm.FormCreate(Sender: TObject);
    {var
      ZAppName: array[0..127] of char;
      Hold: String;
      Found: HWND;
    }
    begin
      //建立托盘图标
      TrayIconData.cbSize := sizeof(TrayIconData); //TrayIconData变量的字节数
      TrayIconData.Wnd := Handle;   //主窗口句柄
      TrayIconData.uID := 1;        //内部标识,可设为任意数
      TrayIconData.hIcon := Icon.Handle;
      //要加入的图标句柄,可任意指定,此处为在Tform中Icon属性中指定的图标
      //TrayIconData.hIcon := Application.Icon.Handle;
      //此句使用了程序的图标,和上句程序有区别,下句亦可,但推荐使用上句,这样图标加
      //入到托盘中时图标不会走样。
      //TrayIconData.hIcon := LoadIcon(0,IDI_APPLICATION);
      TrayIconData.szTip := '系统托盘示例程序';   // 图标的提示信息,即黄色的Hint
      TrayIconData.uCallbackMessage := CDROMTRAY_MESSAGE;   //回调函数消息
      TrayIconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; //指明哪些字段有效
      {将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
      SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
      //向托盘中添加图标
      Shell_NotifyIcon(NIM_ADD, @TrayIconData);end;
    procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      TrayIconData.cbSize := sizeof(TrayIconData);   //TrayIconData变量的字节数
      TrayIconData.uID := 1;        //内部标识,与加入小图标时的数一致
      TrayIconData.Wnd := Handle;   //主窗口句柄
      //TrayIconData.uFlags := 0;
      Shell_NotifyIcon(NIM_DELETE, @TrayIconData);   //去掉小图标end;
    //------------------------------------------------------------------
    //托盘消息处理事件
    //------------------------------------------------------------------
    procedure TMainForm.CDRomTrayMessage(var message: Tmessage);
    var
      CursorPos : TPoint;begin
      //在这里处理用户点击托盘图标事件,可以根据WM_MOUSEMOVE消息的不同情况产生不同的
      //回应,例如区别对待单击和双击等等
      case message.lParam of
      //
      //WM_LBUTTONDOWN :
        //mcisendstring( pchar(cdromStatus),nil,0,handle);
        //if not Busy then begin    //ShowWindow(Handle, SW_SHOW );  WM_RBUTTONDOWN :
      begin
        GetCursorPos(CursorPos);
        SetForegroundWindow(handle);
        //此句作用是当程序失去焦点时,弹出菜单也随之消失。
        Application.ProcessMessages;
        //取得光标当前位置
        TrayPopMenu.Popup( CursorPos.x ,CursorPos.y );
        PostMessage(Application.MainForm.Handle, WM_NULL, 0, 0);
      end;
      end;end;
    //----------------------------------------------------------//弹出菜单事件
    //----------------------------------------------------------
    procedure TMainForm.popExitClick(Sender: TObject);
    begin
      Close;
    end;
    //----------------------------------------------------------procedure TMainForm.FormPaint(Sender: TObject);
    begin
      Hide;
    end;end.
      

  4.   

    unit unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Forms, //Dialogs,
      StdCtrls, Menus, Controls, ShellApi; //加上ShellApiconst
      {自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
      MYTRAY_MESSAGE = WM_USER + 100;  //托盘图标返回消息type
      TMainForm = class(TForm)    TrayPopMenu: TPopupMenu;
          pop1: TMenuItem;
          pop2: TMenuItem;
          N3: TMenuItem;
          popExit: TMenuItem;
        //窗口事件
        procedure FormCreate(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormDestroy(Sender: TObject);
        procedure FormPaint(Sender: TObject);
        //弹出菜单事件
        procedure popExitClick(Sender: TObject);  private
        { Private declarations }
        TrayIconData : TNotifyIconData;      //定义托盘图标结构
        //托盘消息处理事件
        procedure MyTrayMessage(var message:TMessage);message MyTRAY_MESSAGE;
        
      public
        { Public declarations }
      end;var
      MainForm: TMainForm;implementation{$R *.DFM}
    //  窗口事件
    //----------------------------------------------------------------
    procedure TMainForm.FormCreate(Sender: TObject);
    {var
      ZAppName: array[0..127] of char;
      Hold: String;
      Found: HWND;
    }
    begin
      //建立托盘图标
      TrayIconData.cbSize := sizeof(TrayIconData); //TrayIconData变量的字节数
      TrayIconData.Wnd := Handle;   //主窗口句柄
      TrayIconData.uID := 1;        //内部标识,可设为任意数
      TrayIconData.hIcon := Icon.Handle;
      //要加入的图标句柄,可任意指定,此处为在Tform中Icon属性中指定的图标
      //TrayIconData.hIcon := Application.Icon.Handle;
      //此句使用了程序的图标,和上句程序有区别,下句亦可,但推荐使用上句,这样图标加
      //入到托盘中时图标不会走样。
      //TrayIconData.hIcon := LoadIcon(0,IDI_APPLICATION);
      TrayIconData.szTip := '系统托盘示例程序';   // 图标的提示信息,即黄色的Hint
      TrayIconData.uCallbackMessage := CDROMTRAY_MESSAGE;   //回调函数消息
      TrayIconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; //指明哪些字段有效
      {将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
      SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
      //向托盘中添加图标
      Shell_NotifyIcon(NIM_ADD, @TrayIconData);end;
    procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      TrayIconData.cbSize := sizeof(TrayIconData);   //TrayIconData变量的字节数
      TrayIconData.uID := 1;        //内部标识,与加入小图标时的数一致
      TrayIconData.Wnd := Handle;   //主窗口句柄
      //TrayIconData.uFlags := 0;
      Shell_NotifyIcon(NIM_DELETE, @TrayIconData);   //去掉小图标end;
    //------------------------------------------------------------------
    //托盘消息处理事件
    //------------------------------------------------------------------
    procedure TMainForm.CDRomTrayMessage(var message: Tmessage);
    var
      CursorPos : TPoint;begin
      //在这里处理用户点击托盘图标事件,可以根据WM_MOUSEMOVE消息的不同情况产生不同的
      //回应,例如区别对待单击和双击等等
      case message.lParam of
      //
      //WM_LBUTTONDOWN :
        //mcisendstring( pchar(cdromStatus),nil,0,handle);
        //if not Busy then begin    //ShowWindow(Handle, SW_SHOW );  WM_RBUTTONDOWN :
      begin
        GetCursorPos(CursorPos);
        SetForegroundWindow(handle);
        //此句作用是当程序失去焦点时,弹出菜单也随之消失。
        Application.ProcessMessages;
        //取得光标当前位置
        TrayPopMenu.Popup( CursorPos.x ,CursorPos.y );
        PostMessage(Application.MainForm.Handle, WM_NULL, 0, 0);
      end;
      end;end;
    //----------------------------------------------------------//弹出菜单事件
    //----------------------------------------------------------
    procedure TMainForm.popExitClick(Sender: TObject);
    begin
      Close;
    end;
    //----------------------------------------------------------procedure TMainForm.FormPaint(Sender: TObject);
    begin
      Hide;
    end;end.