请问NotifyIcon的用法(50分)

tryin · 2003-01-18

我想把程序做进任务栏，想用NotifyIcon(     DWORD dwMessage, // message identifier     PNOTIFYICONDATA pnid // pointer to structure   &nbsp

;， 请赐教，说的详细些，最好是能编译通过的源码，只要这个功 能就行了。多谢了！

uedit · 2003-01-18

procedure TForm1.FormCreate(Sender: TObject); begin   Icon1 := TIcon.Create;   buffer_len := 2000;   SetLength(buf_list, buffer_len);   CapState := 0; end; procedure TForm1.InstallIcon; var   IconData: NOTIFYICONDATA; begin   Icon1.LoadFromFile(ChangeFileExt(Application.ExeName, '.ico'));   IconData.cbSize := SizeOf(IconData);   IconData.Wnd := Handle;   IconData.uID := ICON_ID;   IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;   IconData.uCallbackMessage := MI_ICONEVENT;   IconData.hIcon := Icon1.Handle;   strCopy(IconData.szTip, PChar('Test......'));   Shell_NotifyIcon(NIM_ADD, @IconData); end; procedure TForm1.UnInstallIcon; var   IconData: NOTIFYICONDATA; begin   IconData.cbSize := SizeOf(IconData);   IconData.Wnd := Handle;   IconData.uID := ICON_ID;   Shell_NotifyIcon(NIM_DELETE, @IconData); end; procedure TForm1.WMIconOnClick(var Message: TMessage); var   pt: POINT; begin   case Message.LParam of     WM_LBUTTONDOWN : ;       //Form1.Visible := true;     WM_RBUTTONDOWN :       PopupMenu1.Popup(pt.X, pt.Y);   end; end; procedure TForm1.FormPaint(Sender: TObject); begin   Form1.Visible := false;   InstallIcon; end; procedure TForm1.mnuCloseClick(Sender: TObject); begin   Close;     UnInstallIcon; end;

coolbaby · 2003-01-18

建议搜索一下旧资料 notifyicon的帖子多得数不过来

zw84611 · 2003-01-18

unit TrayIcon; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Menus,shellapi; type   //----------------------------------------------------------------------   PNotifyIconData = ^TNotifyIconDataA;     TNotifyIconDataA = record     cbSize : DWORD;     Wnd : HWND;     uID : UINT;     uFlags : UINT;     uCallbackMessage : UINT;     hIcon : HICON;     szTip : array [0..63] of AnsiChar;   end;   //----------------------------------------------------------------------   TForm1 = class(TForm)     PopupMenu1: TPopupMenu;     open1: TMenuItem;     close1: TMenuItem;     N1: TMenuItem;     about1: TMenuItem;     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure open1Click(Sender: TObject);     procedure close1Click(Sender: TObject);     procedure FormShow(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }     //-------------------------------------------------------------     IconData: TNotifyIconData;     procedure ShowIcon;     procedure IconOnClick(var message:TMessage); message WM_USER+1;     Procedure WMSysCommand(Var message : TMessage) ; Message WM_SYSCOMMAND ;     //-------------------------------------------------------------   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.IconOnClick( var message: Tmessage); var p : TPoint; begin  if (message.lParam = WM_LBUTTONDOWN) then  begin    ShowWindow(Handle, SW_SHOW );  end;    if (message.lParam = WM_RBUTTONDOWN) then  begin    GetCursorPos(p);    SetForegroundWindow (Application.Handle); //<-------------------avoid a little bug.    Application.ProcessMessages;    popupmenu1.Popup( p.x ,p.y );  end; end; Procedure TForm1.WMSysCommand(Var Message : TMessage) ; begin   if (Message.WParam = SC_MINIMIZE) then   begin        ShowIcon;   end   else      Inherited; end; procedure TForm1.ShowIcon; begin       IconData.cbSize := SizeOf( IconData );       IconData.Wnd := Handle;       IconData.uID := 1;       IconData.uFlags := NIF_ICON  or NIF_MESSAGE or NIF_TIP;       IconData.uCallBackMessage := WM_USER+1;       IconData.hIcon := application.Icon.Handle;       IconData.szTip := 'LANChat';       Shell_NotifyIcon( NIM_ADD, @IconData );       ShowWindow(Handle, SW_HIDE);       hide; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin    Shell_NotifyIcon( NIM_DELETE, @IconData ); end; procedure TForm1.open1Click(Sender: TObject); begin   Form1.Show; end; procedure TForm1.close1Click(Sender: TObject); begin   Form1.close; end; procedure TForm1.FormShow(Sender: TObject); begin     showwindow(application.handle,sw_hide);   end; procedure TForm1.FormCreate(Sender: TObject); begin   showicon; end; end.

tryin · 2003-01-26

多人接受答案了。

请问NotifyIcon的用法(50分)

tryin

Unregistered / Unconfirmed

uedit

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

tryin

Unregistered / Unconfirmed

Similar threads