如何理解SHELL_NODIFYICON的使用(100分)

faun · 2000-03-26

我现在手边无MSDN，不知shell_nodifyicon的参数定义， 求助于各位了。

Another_eYes · 2000-03-26

Sends a message to the system to add, modify, or delete an icon from the taskbar status area. WINSHELLAPI BOOL WINAPI Shell_NotifyIcon(     DWORD dwMessage, // message identifier     PNOTIFYICONDATA pnid // pointer to structure   &nbsp

;   Parameters dwMessage Identifier of the message to send. This parameter can be one of these values: NIM_ADD Adds an icon to the status area. NIM_DELETE Deletes an icon from the status area. NIM_MODIFY Modifies an icon in the status area.   pnid Pointer to a NOTIFYICONDATA structure. The content of the structure depends on the value of dwMessage.   Return Values If the function succeeds, the return value is nonzero. If the function fails, the return value is zero. Contains information that the system needs to process taskbar status area messages. typedef struct _NOTIFYICONDATA { // nid       DWORD cbSize;     HWND hWnd;     UINT uID;     UINT uFlags;     UINT uCallbackMessage;     HICON hIcon;     char szTip[64]; } NOTIFYICONDATA, *PNOTIFYICONDATA;   Members cbSize Size of the NOTIFYICONDATA structure. hWnd Handle of the window that receives notification messages associated with an icon in the taskbar status area. uID Application-defined identifier of the taskbar icon. uFlags Array of flags that indicate which of the other members contain valid data. This member can be a combination of these values: NIF_ICON The hIcon member is valid. NIF_MESSAGE The uCallbackMessage member is valid. NIF_TIP The szTip member is valid.   uCallbackMessage Application-defined message identifier. The system uses the specified identifier for notification messages that it sends to the window identified by hWnd whenever a mouse event occurs in the bounding rectangle of the icon. hIcon Handle of the icon to add, modify, or delete. szTip Tooltip text to display for the icon.

沈前卫 · 2000-03-26

看这里，中文的.    {B-) http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=200349

Pipi. · 2000-03-26

安装了bcb或者delphi后 在 borland/borland shared/mshelp/win32.hlp 就有win32 api的帮助， 不是什么都要msdn

Pipi. · 2000-03-26

在 cbuilder4/help/bcb4.cnt (c++ builder 4) 或者 在 delphi4(或者5)/help/delphi4（或者5）.cnt (delphi 4/5) 加上一行： :index win32=c:/borland(你的安装目录)/borland shared/mshelp/win32.hlp 就可以在你的bcb或者delphi的在线帮助看到win32的帮助了

Another_eYes · 2000-03-26

不过不可全信delphi的win32 api帮助, 有些有误. 我发现了一个: EM_POSFROMCHAR, win32.hlp和MSDN上说的完全是 两码事. 不幸的是MSDN上的正确. delphi的help浪费了我4小时, 并且促使我干了一件非常无聊的事: 从低层开 始整个重写了一个windows的edit control.

wlq · 2000-03-26

CSDN上好象有个详细的例子 我就是在那里学会的

Pipi. · 2000-03-26

delphi带来的win32.hlp也是ms的sdk提供的，只是ms那个时候搞错了而已。 只是你的msdn比hlp要新一点，要是找个和hlp同时间的msdn，肯定也是错的 hlp绝大多数东西还是对的嘛，msdn太大，也不如hlp方便用

wrench · 2000-03-26

从技术方面来说，一个任务栏应用程序非常象普通的应用程序，它有一个消息循环，相应windows的消息来完成相应的功能。 procedure runtrayapplication; var msg : tmsg; begin   createwindow;   addtrayicon;   while getmessage(msg,0,0,0) do begin     translatemessage(msg);     dispatchmessage(msg);   end;   deletetrayicon; end;     你能看到：所有需要做的工作是创建一个窗口，注册一个图标到任务栏，设置它的消息循环，最后关闭它。当然，必须还有增加其他代码完成相应的功能，但是，它是真的不需要担心。     让我们从窗口的创建开始。实际上，这个窗口是不是能在任务栏上能见到的窗口。相应的，这个窗口只是处理消息循环、其它父类的工作。任务窗口(windows 95 & nt)句柄创建消息（例如鼠标单击等）和将消息发到我们的窗口。 procedure createwindow; var   wc : twndclass;   w  : hwnd; begin   with wc do begin     style := 0;     lpfnwndproc := @wndproc;     cbclsextra := 0;     cbwndextra := 0;     hicon := 0;     hcursor := 0;     hbrbackground :=di2001.jpg;     lpszmenuname := nil;     lpszclassname := 'mytrayiconclass';     hinstance := system.hinstance;   end;   registerclass(wc);   w := windows.createwindow('mytrayiconclass', 'myveryowntrayiconwindow',                             ws_overlappedwindow, 0, 0, 0, 0, 0, 0, hinstance, nil);   showwindow(w,sw_hide);   updatewindow(w);   mainwindow := w; end; 　     这个窗口使用普通的窗口函数创建。注意这个窗口的类型是“ws_overlappedwindow”，但是这个尺寸是0，并且它是隐藏的，所有，它将不会显示出来。     下一步是加(注册)我们的图标。这将需要使用shell_notifyicon这个api函数，这个函数实际上可以完成三个功能，这里只需要它的增加的特性。 procedure addtrayicon; var icondata : tnotifyicondata; begin   with icondata do begin     cbsize := sizeof(icondata);     wnd := mainwindow;     uid := 0;     uflags := nif_icon or nif_message or nif_tip;     ucallbackmessage := wm_mycallback;     hicon := loadicon(hinstance,'myicon');     strcopy(sztip,pchar(trayicontip));   end;   shell_notifyicon(nim_add,@icondata); end; 　     这个最重要的事情是tnotifyicondata的数据结构，它是一个设置window句柄的数据结构，是一个记录参数，对我们来说，我们需要设置这个图标的窗口句柄(这将定义哪个窗口处理消息循环)，回调消息号，图标，工具提示等。一旦这个数据设置了，我们就可以增加一个图标到任务栏上了。为了完成这个工作，使用nim_add程序。     现行我们已经加了我们的图标到任务栏，下面需要决定如何处理消息。 const   wm_mycallback = wm_user+1000;   cm_exit       = 100; { we worry about... }   cm_about      = 101; { ...these later    } 　     这个实际的窗口处理过程也是相当普通。几个窗口消息(如wm_nccreate)必须处理。然而，对我们来说，更重要的事情是处理wm_mycallback和wm_command消息： function wndproc (window : hwnd; msg, wparam, lparam : integer): integer; stdcall; begin   result := 0;   case msg of     wm_nccreate   : result := 1;     wm_destroy    : postquitmessage(0);     wm_command    : begin { a command was chosen from the popup menu }                       if (wparam = cm_exit) then                         postmessage(window,wm_destroy,0,0)                       else if (wparam = cm_about) then                         messagebox(0,'shell test copyright ?'+                                    'jani j鋜vinen 1996.',                                    'about shell test',mb_ok)                       else opendesktopicon(wparam-cm_about);                     end;     wm_mycallback : begin { our icon was clicked }                       if (lparam = wm_lbuttondown) then                         showiconpopupmenu                       else if (lparam = wm_rbuttondown) then                         showaboutpopupmenu;                     end;     else result := defwindowproc(window,msg,wparam,lparam);   end; end; 　     就象你看到的一样，当用户单击图标时，windows提示我们。注意我们不使用通常使用的wm_lbuttondown 消息，而使用wm_mycallback message，详细的消息信息存储在lparam参数中。     当用户单击鼠标右键，我们创建一个菜单在桌面上。 type   ticondata = array[1..100] of string; var   icondata   : ticondata; procedure showiconpopupmenu; var   shellfolder : ishellfolder;   enumidlist  : ienumidlist;   result      : hresult;   dummy       : ulong;   itemidlist  : titemidlist;   pntr        : pitemidlist;   strret      : tstrret;   popupmenu   : hmenu;   itemid      : integer;   pos         : tpoint;   procedure addtomenu(item : string);   var s : string;   begin     icondata[itemid-cm_about] := item;     s := extractfilename(item);     if (system.pos('.',s) <> 0) then setlength(s,system.pos('.',s)-1);     appendmenu(popupmenu,mf_enabled or mf_string,itemid,pchar(s));     inc(itemid);   end; begin   popupmenu := createpopupmenu;   itemid := cm_about+1;   shgetdesktopfolder(shellfolder);   shellfolder.enumobjects(mainwindow,shcontf_nonfolders,enumidlist);   pntr := @itemidlist;   result := enumidlist.next(1,pntr,dummy);   while (result = noerror) do begin     shellfolder.getdisplaynameof(pntr,shgdn_forparsing,@strret);     with strret do addtomenu(string(cstr));     result := enumidlist.next(1,pntr,dummy);   end;   enumidlist.release;   shellfolder.release;   getcursorpos(pos);   appendmenu(popupmenu,mf_separator,0,'');   appendmenu(popupmenu,mf_enabled or mf_string,cm_exit,'e&xit');   setforegroundwindow(mainwindow);   trackpopupmenu(popupmenu,tpm_leftalign or tpm_leftbutton,                  pos.x,pos.y,0,mainwindow,nil);   destroymenu(popupmenu); end; 　     上面的程序看起来有点复杂，你可以将它分成两个部分来看：创建和显示菜单。     列举创建菜单是用windows的外壳接口完成的。首先，我们使用shgetdesktopforlder函数得到使用桌面的ishellfolder接口。使用这个接口，我们能得到另一个接口的实例：ienumidlist。这个接口通常实现实际的列举工作。我们简单的重复调用这个函数直到错误值返回(例如：所有的菜单被列举)。当我们得到一个菜单，我们使用addtomenu函数加它。     当所有的菜单被列举和创建后，现在我们需要运行这个菜单。我们将找到的菜单保存到一个全局的list变量中，每一个菜单都拥有它的菜单号。这确保我们能得到它的索引。       opendesktopicon(wparam-cm_about) 当然，wparam中储存了用户单击鼠标的菜单的菜单号(id)。     下面我们将处理运行用户选择的菜单。 procedure opendesktopicon(number : integer); var   s : string;   i : integer; begin   s := icondata[number];   i := shellexecute(0,nil,pchar(s),nil,nil,sw_shownormal);   if (i < 32) then begin     s := 'could not open selected item "'+s+'". '+          'result was: '+inttostr(i)+'.';     messagebox(0,pchar(s),'shell test',mb_ok);   end; end; 　     上面，win 32 api函数shellexecute做了所有的工作。     现在你应该能用delphi创建简单的任务栏的程序了。

faun · 2000-03-29

多人接受答案了。

如何理解SHELL_NODIFYICON的使用(100分)

faun

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

wlq

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

wrench

Unregistered / Unconfirmed

faun

Unregistered / Unconfirmed

Similar threads