⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 delphi托盘程序实战.mht

📁 delphi7编写的托盘程序标准源码
💻 MHT
📖 第 1 页 / 共 5 页
字号:
function updatesize(){ var bodyw =3D window.document.body.offsetWidth; =
if(bodyw <=3D 790) objmain.style.width=3D"772px"; else if(bodyw >=3D =
1016) objmain.style.width=3D"996px"; else objmain.style.width=3D"100%"; =
}
updatesize(); window.onresize =3D updatesize;
</SCRIPT>
<![endif]-->
<DIV id=3Dheader>
<DIV class=3Dlc>
<DIV class=3Drc></DIV></DIV>
<DIV class=3Dtit><A class=3Dtitlink=20
title=3D"xingfupingguo=B5=C4=BF=D5=BC=E4 =
http://hi.baidu.com/xingfupingguo"=20
href=3D"http://hi.baidu.com/xingfupingguo">=D0=D2=B8=A3=C6=BB=B9=FB</A></=
DIV>
<DIV =
class=3Ddesc>=E0=CB=A3=AC=C4=E3=BA=C3=A3=AC=BB=B6=D3=AD=C4=FA=B9=E2=C1=D9=
=D0=D2=B8=A3=C6=BB=B9=FB=B5=C4=BC=D2=A1=A3</DIV>
<DIV id=3Dtabline></DIV>
<DIV id=3Dtab><A =
href=3D"http://hi.baidu.com/xingfupingguo">=D6=F7=D2=B3</A><A class=3Don =

href=3D"http://hi.baidu.com/xingfupingguo/blog">=B2=A9=BF=CD</A><A=20
href=3D"http://hi.baidu.com/xingfupingguo/album">=CF=E0=B2=E1</A><SPAN>|<=
/SPAN><A=20
href=3D"http://hi.baidu.com/xingfupingguo/profile">=B8=F6=C8=CB=B5=B5=B0=B8=
</A> <SPAN>|</SPAN><A=20
href=3D"http://hi.baidu.com/xingfupingguo/friend">=BA=C3=D3=D1</A> =
</DIV></DIV>
<DIV class=3Dstage>
<DIV class=3Dstagepad>
<DIV style=3D"WIDTH: 100%">
<TABLE class=3Dmodth cellSpacing=3D0 cellPadding=3D0 width=3D"100%" =
border=3D0>
  <TBODY>
  <TR>
    <TD class=3Dmodtl width=3D7>&nbsp;</TD>
    <TD class=3Dmodtc noWrap>
      <DIV class=3Dmodhead><SPAN =
class=3Dmodtit>=B2=E9=BF=B4=CE=C4=D5=C2</SPAN></DIV></TD>
    <TD class=3Dmodtc noWrap align=3Dright></TD>
    <TD class=3Dmodtr width=3D7>&nbsp;</TD></TR></TBODY></TABLE>
<DIV class=3Dmodbox id=3Dm_blog>
<DIV class=3Dtit>Delphi:=CD=D0=C5=CC=B3=CC=D0=F2=CA=B5=D5=BD</DIV>
<DIV class=3Ddate>2008-10-05 11:43</DIV>
<TABLE style=3D"TABLE-LAYOUT: fixed">
  <TBODY>
  <TR>
    <TD>
      <DIV class=3Dcnt=20
      =
id=3Dblog_text>=BA=DC=B6=E0=C8=CB=C8=CF=CE=AA<SPAN>Delphi</SPAN><SPAN>=CA=
=C7=D2=BB=B8=F6</SPAN><SPAN>RAD</SPAN><SPAN>=B9=A4=BE=DF=A3=AC=B0=FC=C0=A8=
=CE=D2=B1=BE=C8=CB=D4=DA=C9=CF=D1=A7=B5=C4=CA=B1=BA=F2=B6=D4</SPAN><SPAN>=
Delphi</SPAN><SPAN>=D2=B2=D3=D0=C6=AB=BC=FB=A3=AC=CF=D6=D4=DA=D7=DF=B3=F6=
=C1=CB=A1=B0=CF=F3=D1=C0=CB=FE=A1=B1=A3=AC=C9=E6=BC=B0=B5=C4=C3=E6=B9=E3=C1=
=CB=A3=AC=D3=F6=B5=BD=B5=C4=CE=CA=CC=E2=B6=E0=C1=CB=A3=AC=C2=FD=C2=FD=B5=D8=
=D2=B2=D3=D0=C1=CB=D7=D4=BC=BA=B5=C4=D2=BB=B5=E3=D0=C4=B5=C3=CC=E5=BB=E1=A1=
=A3=C6=E4=CA=B5</SPAN><SPAN>,Delphi</SPAN><SPAN>=CA=C7=BB=F9=D3=DA</SPAN>=
<SPAN>Object=20
      Pascal=20
      =
</SPAN><SPAN>=D3=EF=D1=D4=B5=C4=BF=AA=B7=A2=B9=A4=BE=DF=A3=AC=D2=B2=BE=CD=
=CA=C7=CB=B5</SPAN><SPAN>Delphi</SPAN><SPAN>=B1=BE=D6=CA=C9=CF=CA=C7=D2=BB=
=D6=D6=D3=EF=D1=D4=B9=A4=BE=DF=A3=AC=B2=A2=C7=D2=CA=C7=D5=E6=D5=FD=B5=C4=C3=
=E6=CF=F2=B6=D4=CF=F3=B5=C4=A1=A3=CF=C2=C3=E6=CE=D2=BE=D9=B5=C4=C0=FD=D7=D3=
=BE=CD=CA=C7=D3=C3</SPAN><SPAN>Delphi</SPAN><SPAN>=CA=B5=CF=D6=B5=C4=D2=BB=
=B8=F6=CD=D0=C5=CC=D0=A1=B3=CC=D0=F2=A1=A3=B3=CC=D0=F2=B6=CC=D0=A1=BE=AB=BA=
=B7=A3=AC=C2=F6=C2=E7=B7=D6=C3=F7=A3=AC=CE=D2=BD=AB=B6=D4=B9=D8=BC=FC=B2=BF=
=B7=D6=BD=F8=D0=D0=CF=EA=CF=B8=BD=B2=BD=E2=A1=A3=BE=CD=CF=F3=BA=F2=BF=A1=BD=
=DC=CF=C8=C9=FA=B0=D1</SPAN><SPAN>MFC</SPAN><SPAN>=D2=BB=B2=E3=D2=BB=B2=E3=
=B5=D8=B0=FE=BF=AA=D2=BB=D1=F9=A3=AC=BD=F1=CC=EC=CE=D2=D2=B2=C0=B4=D2=BB=B4=
=CE=A1=B0=E2=D2=B6=A1=BD=E2=C5=A3=A1=B1=A1=A3</SPAN>=20

      <P><SPAN>&nbsp;&nbsp;=20
      =
=D4=DA</SPAN><SPAN>Delphi</SPAN><SPAN>=D6=D0=C9=E6=BC=B0=B5=BD=CF=B5=CD=B3=
=B1=E0=B3=CC=B5=C4=B7=BD=C3=E6=BA=C1=CE=DE=C0=FD=CD=E2=B6=BC=D2=AA=B5=F7=D3=
=C3</SPAN><SPAN>API</SPAN><SPAN>=BA=AF=CA=FD=A3=AC=D4=DA</SPAN><SPAN>Shel=
lAPI.pas</SPAN><SPAN>=B5=A5=D4=AA=D6=D0=D3=D0=D2=AA=D3=C3=B5=BD=B5=C4</SP=
AN><SPAN>API</SPAN><SPAN>=BA=AF=CA=FD=B5=C4=D4=AD=D0=CD=A1=A3</SPAN></P>
      <P =
class=3DMsoNormal><SPAN>=CA=B5=D5=BD=D1=DD=C1=B7=A3=BA</SPAN></P>
      <P =
class=3DMsoNormal><SPAN>=D2=BB=A3=AE=D0=C2=BD=A8=D2=BB=B8=F6=D3=A6=D3=C3=B3=
=CC=D0=F2=A3=BA</SPAN><SPAN>File-&gt;New=20
      Applicaton</SPAN><SPAN>=20
      =
=D4=DA</SPAN><SPAN>Interface</SPAN><SPAN>=B2=BF=B7=D6=B6=A8=D2=E5=D2=BB=B8=
=F6=CF=FB=CF=A2=B3=A3=C1=BF=A3=BA</SPAN><SPAN>const=20
      WM_NID=3DWM_USER+1000;=20
      =
</SPAN><SPAN>=CF=B5=CD=B3=B9=E6=B6=A8=B4=D3</SPAN><SPAN>WM_USER</SPAN><SP=
AN>=BF=AA=CA=BC=CE=AA=D3=C3=BB=A7=D7=D4=B6=A8=D2=E5=CF=FB=CF=A2=A1=A3</SP=
AN></P>
      <P =
class=3DMsoNormal><SPAN>=B6=FE=A3=AE=B6=A8=D2=E5=D2=BB=B8=F6=C8=AB=BE=D6=B1=
=E4=C1=BF=A3=BA</SPAN>=20
      =
<SPAN>NotifyIcon:TNotifyIconData</SPAN><SPAN>=A3=AC</SPAN><SPAN>NotifyIco=
n</SPAN><SPAN>=CA=C7=B7=C7=B3=A3=D6=D8=D2=AA=B5=C4=D2=BB=B8=F6=B1=E4=C1=BF=
=A3=AC=D5=FB=B8=F6=B3=CC=D0=F2=BB=F9=B1=BE=C9=CF=CA=C7=CE=A7=D7=C5=D5=E2=B8=
=F6=B1=E4=C1=BF=D4=DA=D7=AA=A1=A3</SPAN><SPAN>TNotifyIconData</SPAN><SPAN=
>=CA=C7=D2=BB=B8=F6=BC=C7=C2=BC=C0=E0=D0=CD=A3=AC=B0=B4=D7=A1</SPAN><SPAN=
>Ctrl</SPAN><SPAN>=BC=FC=A3=AC=D4=DA</SPAN><SPAN>TNotifyIconData=20
      =
</SPAN><SPAN>=CB=AB=BB=F7=BC=B4=BD=F8=C8=EB</SPAN><SPAN>ShellAPI.pas</SPA=
N><SPAN>=B5=A5=D4=AA=A1=A3=A3=A8=D7=A2=A3=BA=D4=DA</SPAN><SPAN>Delphi</SP=
AN><SPAN>=D6=D0=A3=AC=D5=E2=CA=C7=D2=BB=B8=F6=B7=C7=B3=A3=BA=C3=B5=C4=B6=D4=
=D4=B4=B4=FA=C2=EB=BD=F8=D0=D0=B7=D6=CE=F6=B5=C4=B7=BD=B7=A8=A3=AC=D4=B4=B4=
=FA=C2=EB=CB=B5=C3=F7=D2=BB=C7=D0=A3=AC=C4=E3=D2=AA=CF=EB=D6=AA=B5=C0=B3=CC=
=D0=F2=B1=B3=BA=F3=B5=C4=C4=DA=C4=BB=A3=AC=D7=EE=BA=C3=B5=C4=B7=BD=B7=A8=BE=
=CD=CA=C7=B7=D6=CE=F6=D4=B4=B4=FA=C2=EB=A3=A1=A3=A9=B4=CB=CA=B1=B3=F6=CF=D6=
=C1=CB=D2=D4=CF=C2=B8=B3=D6=B5=D3=EF=BE=E4=A3=BA</SPAN></P>
      <P class=3DMsoNormal><SPAN>TNotifyIconData =3D=20
      =
TNotifyIconDataA</SPAN><SPAN>=A3=AC=D5=E2=B8=F6=D2=E2=CB=BC=BA=DC=C3=F7=CF=
=D4=A3=AC=BE=CD=CA=C7=CB=B5</SPAN><SPAN>TNotifyIconData</SPAN><SPAN>=BA=CD=
</SPAN><SPAN>TNotifyIconDataA</SPAN><SPAN>=CA=C7=CD=AC=D6=D6=CA=FD=BE=DD=C0=
=E0=D0=CD=A3=AC=BD=D3=D7=C5=CD=F9=CF=C2=BF=B4=D3=D0=A3=BA</SPAN></P>
      <P class=3DMsoNormal><SPAN>TNotifyIconDataA =3D=20
      =
_NOTIFYICONDATAA</SPAN><SPAN>=A3=AC=D2=E2=CB=BC=D3=EB=B8=D5=B2=C5=B5=C4=D2=
=BB=D1=F9=A3=AC=D4=D9=CD=F9=CF=C2=BF=B4=A3=BA</SPAN><SPAN><SPAN=20
      style=3D"mso-spacerun: "> </SPAN></SPAN></P>
      <P class=3DMsoNormal><SPAN>type</SPAN></P>
      <P class=3DMsoNormal><SPAN>_NOTIFYICONDATAA =3D record</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
"></SPAN><SPAN=20
      style=3D"mso-spacerun: "></SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;&nbsp; </SPAN>cbSize: =
DWORD;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;=20
      </SPAN><SPAN style=3D"mso-spacerun: ">&nbsp;&nbsp; </SPAN><SPAN=20
      style=3D"mso-spacerun: "></SPAN>Wnd: HWND;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;&nbsp;=20
      </SPAN><SPAN style=3D"mso-spacerun: ">&nbsp;&nbsp; </SPAN>uID:=20
      UINT;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;=20
      </SPAN><SPAN style=3D"mso-spacerun: ">&nbsp;&nbsp; </SPAN><SPAN=20
      style=3D"mso-spacerun: "></SPAN>uFlags: UINT;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;=20
      </SPAN><SPAN style=3D"mso-spacerun: "></SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp; </SPAN>uCallbackMessage:=20
      UINT;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;&nbsp;=20
      </SPAN><SPAN style=3D"mso-spacerun: ">&nbsp;&nbsp; </SPAN>hIcon:=20
      HICON;</SPAN></P>
      <P class=3DMsoNormal><SPAN>szTip: array [0..63] of =
AnsiChar;</SPAN></P>
      <P class=3DMsoNormal><SPAN>end;</SPAN></P>
      <P=20
      =
class=3DMsoNormal><SPAN>=D5=E2=BF=C9=D5=E6=CA=C7=A1=B0=C7=A7=BA=F4=CD=F2=BB=
=BD=CA=BC=B3=F6=C0=B4=A3=AC=D3=CC=B1=A7=C5=FD=C5=C3=B0=EB=D5=DA=C3=E6=A1=B1=
=A1=A3=CF=D6=D4=DA=B4=F3=BC=D2=BA=DC=C7=E5=B3=FE=C1=CB=A3=AC=CE=D2=C3=C7=B8=
=D5=B2=C5=B6=A8=D2=E5=B5=C4=C8=AB=BE=D6=B1=E4=C1=BF</SPAN><SPAN>NotifyIco=
n</SPAN><SPAN>=C6=E4=CA=B5=CA=C7=D2=BB=B8=F6=B0=FC=BA=AC=D3=D0</SPAN><SPA=
N>7</SPAN><SPAN>=B8=F6=B3=C9=B7=D6=B5=C4=BC=C7=C2=BC=C0=E0=D0=CD=B1=E4=C1=
=BF=A3=AC=BE=CD=CF=E0=B5=B1=D3=DA</SPAN><SPAN>C/C++</SPAN><SPAN>=D6=D0=B5=
=C4=BD=E1=B9=B9=CC=E5=B1=E4=C1=BF=A3=A8</SPAN><SPAN>C/C++</SPAN><SPAN>=B5=
=C4=B3=CC=D0=F2=D4=B1=D3=A6=B8=C3=CA=C7=D4=D9=CA=EC=CF=A4=B2=BB=B9=FD=C1=CB=
=A3=A9=A1=A3=CF=C2=C3=E6=CE=D2=C3=C7=D6=F0=B8=F6=C0=B4=BD=E2=CA=CD=BC=C7=C2=
=BC=C0=E0=D0=CD=D6=D0=B5=C4</SPAN><SPAN>7</SPAN><SPAN>=B8=F6=B2=BF=B7=D6=B8=
=F7=D3=D0=CA=B2=C3=B4=B9=A6=C4=DC=A1=A3</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-list: =
">1&gt;<SPAN>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      =
</SPAN></SPAN></SPAN><SPAN>cbSize</SPAN><SPAN>=BE=CD=CA=C7=C4=E3=B6=A8=D2=
=E5=B5=C4</SPAN><SPAN>NotifyIcon</SPAN><SPAN>=B1=E4=C1=BF=B5=C4=B4=F3=D0=A1=
=A3=AC=D3=C3</SPAN><SPAN>SizeOf(TNotifyIconData)</SPAN><SPAN>=BF=C9=D2=D4=
=C8=A1=B5=C3=A3=AC=C8=E7=B9=FB=C4=E3=CA=C7=D2=BB=B8=F6=CA=EC=C1=B7=B5=C4<=
/SPAN><SPAN>C/C++</SPAN><SPAN>=B3=CC=D0=F2=D4=B1=A3=AC=C4=E3=D3=A6=B8=C3=B2=
=BB=BB=E1=C4=B0=C9=FA=A1=A3=D4=DA</SPAN><SPAN>C/C++</SPAN><SPAN>=D6=D0=A3=
=AC=C3=BF=B5=B1=D2=AA=CE=AA=D2=BB=B8=F6=BD=E1=B9=B9=CC=E5=B1=E4=C1=BF=B7=D6=
=C5=E4=C4=DA=B4=E6=B5=C4=CA=B1=BA=F2=B6=BC=D2=AA=A3=BA=CD=A8=B9=FD</SPAN>=
<SPAN>=20
      SizeOf(Struct type) =
</SPAN><SPAN>=C0=B4=BB=F1=D6=AA=B4=E6=B7=C5=D2=BB=B8=F6=D5=E2=D1=F9=B5=C4=
=BD=E1=B9=B9=CC=E5=B1=E4=C1=BF=D2=AA=B6=E0=C9=D9=C4=DA=B4=E6=A1=A3</SPAN>=
</P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-list: =
">2&gt;<SPAN>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      =
</SPAN></SPAN></SPAN><SPAN>Wnd</SPAN><SPAN>=CA=C7=D2=BB=B8=F6=BE=E4=B1=FA=
=A3=AC=C4=E3=CF=A3=CD=FB=CD=D0=C5=CC=B3=CC=D0=F2=B2=FA=C9=FA=B5=C4=CF=FB=CF=
=A2=D3=D0=C4=C4=B8=F6=B4=B0=CC=E5=C0=B4=B4=A6=C0=ED=BE=CD=C8=C3</SPAN><SP=
AN>Wnd</SPAN><SPAN>=D6=B8=CF=F2=C4=C7=B8=F6=B4=B0=CC=E5=A1=A3</SPAN></P>
      <P=20
      =
class=3DMsoNormal><SPAN>=C0=FD=C8=E7=A3=BA=C4=E3=D7=BC=B1=B8=D4=DA=C8=CE=CE=
=F1=C0=B8=B5=C4=CD=D0=C5=CC=D0=A1=CD=BC=B1=EA=C9=CF=B5=A5=BB=F7=CA=B1=B4=B0=
=CC=E5=CA=C7=B4=B0=CC=E5=D4=DA=A1=B0=CF=D4=CA=BE=A1=B1=BA=CD=A1=B0=D2=FE=B2=
=D8=A1=B1=D6=AE=BC=E4=C7=D0=BB=BB=A3=AC=D4=F2=B0=D1</SPAN><SPAN>Wnd</SPAN=
><SPAN>=D6=B8=CF=F2=D6=F7=B4=B0=CC=E5=A1=A3</SPAN></P>
      <P class=3DMsoNormal><SPAN>3&gt;<SPAN style=3D"mso-spacerun: ">=20
      =
</SPAN>uID:</SPAN><SPAN>=C8=E7=B9=FB=C4=E3=D2=AA=B4=B4=BD=A8=B6=E0=B8=F6=CD=
=D0=C5=CC=D0=A1=B3=CC=D0=F2=A3=AC=C4=C7=C3=B4=D4=F5=C3=B4=C7=F8=B7=D6=CB=FC=
=C3=C7=C4=D8=A3=BF=BE=CD=CA=C7=BF=BF=D5=E2=B8=F6</SPAN><SPAN>ID</SPAN><SP=
AN>=BA=C5=C0=B4=C7=F8=B7=D6=A1=A3</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-list: =
">3&gt;<SPAN>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      =
</SPAN></SPAN></SPAN><SPAN>uFlags</SPAN><SPAN>=CA=C7=D2=BB=B8=F6=B1=EA=D6=
=BE=CE=BB=A3=AC=CB=FC=B1=ED=CA=BE=B5=B1=C7=B0=CB=F9=B4=B4=BD=A8=B5=C4=CD=D0=
=C5=CC=B3=CC=D0=F2=BE=DF=D3=D0=C4=C4=D0=A9=D0=D4=D6=CA=A3=BA</SPAN></P>
      <P class=3DMsoNormal><SPAN>NIF_ICON<SPAN=20
      style=3D"mso-tab-count: ">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;=20
      =
</SPAN></SPAN><SPAN>=B1=ED=CA=BE=B5=B1=C7=B0=CB=F9=C9=E8=D6=C3=B5=C4=CD=BC=
=B1=EA=A3=A8=BC=B4</SPAN><SPAN>hIcon</SPAN><SPAN>=B5=C4=D6=B5=A3=A9=CA=C7=
=D3=D0=D0=A7=B5=C4</SPAN><SPAN>=20
      </SPAN></P>
      <P class=3DMsoNormal><SPAN>NIF_MESSAGE<SPAN style=3D"mso-spacerun: =
">=20
      =
</SPAN></SPAN><SPAN>=B1=ED=CA=BE=B5=B1=C7=B0=CB=F9=C9=E8=D6=C3=B5=C4=CF=B5=
=CD=B3=CF=FB=CF=A2=A3=A8=BC=B4</SPAN><SPAN>uCallBackMessage</SPAN><SPAN>=B5=
=C4=D6=B5=A3=A9=CA=C7=D3=D0=D0=A7=B5=C4</SPAN></P>
      <P class=3DMsoNormal><SPAN>NIF_TIP<SPAN style=3D"mso-tab-count: =
">&nbsp;&nbsp;=20
      </SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      =
</SPAN></SPAN><SPAN>=B1=ED=CA=BE=B5=B1=C7=B0=CB=F9=C9=E8=D6=C3=B5=C4=CC=E1=
=CA=BE=CC=F5=A3=A8=BC=B4</SPAN><SPAN>szTip</SPAN><SPAN>=B5=C4=D6=B5=A3=A9=
=CA=C7=D3=D0=D0=A7=B5=C4=A1=A3</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-list: =
">4&gt;<SPAN>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      =
</SPAN></SPAN></SPAN><SPAN>uCallBackMessage</SPAN><SPAN>=D5=E2=CA=C7</SPA=
N><SPAN>7</SPAN><SPAN>=B8=F6=B2=BF=B7=D6=C0=EF=C3=E6=D7=EE=D6=D8=D2=AA=B5=
=C4=D2=BB=B8=F6=A1=A3=D5=E2=C0=EF=D6=B8=B6=A8=D2=BB=B8=F6=BB=D8=B5=F7=CF=FB=
=CF=A2=A3=AC=D2=B2=BE=CD=CA=C7=CB=B5=D5=E2=C0=EF=B6=A8=D2=E5=D2=BB=B8=F6=CF=
=FB=CF=A2=C3=FB=A3=AC=B5=B1=C4=E3=B5=A5=BB=F7=BB=F2=D5=DF=D3=D2=BB=F7=CD=D0=
=C5=CC=CD=BC=B1=EA=B5=C4=CA=B1=BA=F2=BE=CD=BB=E1=CF=F2=C4=E3=D4=DA</SPAN>=
<SPAN>Wnd</SPAN><SPAN>=CB=F9=D6=B8=CF=F2=B5=C4=B4=B0=CC=E5=B7=A2=CB=CD=D2=
=BB=B8=F6=D4=DA</SPAN><SPAN>uCallBackMessage</SPAN><SPAN>=D6=D0=B6=A8=D2=E5=
=B5=C4=CF=FB=CF=A2=C3=FB=A3=AC=C8=BB=BA=F3=C4=E3=D4=DA=B3=CC=D0=F2=D6=D0=B6=
=A8=D2=E5=D2=BB=B8=F6=CF=FB=CF=A2=B3=F6=C0=B4=BA=AF=CA=FD=C0=B4=B4=A6=C0=ED=
=D5=E2=B8=F6=CF=FB=CF=A2=A1=A3=D5=E2=D1=F9=BE=CD=B0=D1</SPAN><SPAN>Window=
s</SPAN><SPAN>=B9=D8=D3=DA=CF=FB=CF=A2=B5=C4=D5=FB=CC=D7=C1=F7=B3=CC=B6=BC=
=B4=A6=C0=ED=BA=C3=C1=CB=A1=A3</SPAN><SPAN>=20
      </SPAN></P>
      <P class=3DMsoNormal><SPAN>6&gt;<SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;=20
      =
</SPAN>hIcon</SPAN><SPAN>=CE=AA=CD=D0=C5=CC=CD=BC=B1=EA=B5=C4=BE=E4=B1=FA=
=A3=AC=B8=F9=BE=DD=D5=E2=B8=F6=BE=E4=B1=FA=C4=E3=BE=CD=BF=C9=D2=D4=D4=F6=BC=
=D3=A1=A2=D0=DE=B8=C4=A1=A2=C9=BE=B3=FD=CD=BC=B1=EA=A1=A3</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-list: =
">7&gt;<SPAN>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      =
</SPAN></SPAN></SPAN><SPAN>szTip</SPAN><SPAN>=BE=CD=CA=C7=B5=B1=C4=E3=B5=C4=
=CA=F3=B1=EA=B7=C5=B5=BD=C8=CE=CE=F1=C0=B8=CD=D0=C5=CC=B5=C4=D0=A1=CD=BC=B1=
=EA=C9=CF=B5=C4=CA=B1=BA=F2=B5=AF=B3=F6=C0=B4=B5=C4=CC=E1=CA=BE=D0=C5=CF=A2=
=A1=A3</SPAN></P><SPAN>
      <P=20
      =
class=3DMsoNormal><SPAN>=D4=DA=D5=E2=C0=EF=CE=D2=BB=A8=C1=CB=B4=F3=C1=BF=B5=
=C4=B1=CA=C4=AB=BD=E9=C9=DC</SPAN><SPAN>TNotifyIconData</SPAN><SPAN>=B5=C4=
=C4=DA=C4=BB=A3=AC=B0=D1=D5=E2=B2=BF=B7=D6=B8=E3=C7=E5=B3=FE=C1=CB=A3=AC=BA=
=F3=C3=E6=B5=C4=B6=AB=CE=F7=BE=CD=CB=B3=C0=ED=B3=C9=D5=C2=C1=CB=A1=A3</SP=
AN></P>
      <P class=3DMsoNormal><SPAN>=C8=FD=A3=AE</SPAN>=20
      =
<SPAN>=CB=AB=BB=F7=D6=F7=B4=B0=CC=E5=A3=AC=BD=F8=C8=EB</SPAN><SPAN>FormCr=
eate</SPAN><SPAN>=B5=C4=B4=FA=C2=EB=C7=F8=D3=F2=A3=BA</SPAN></P>
      <P =
class=3DMsoNormal><SPAN>TForm1.FormCreate(Sender:TObject);</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;&nbsp;=20
      </SPAN>Begin</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: =
">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      =
</SPAN>//NotifyIcon</SPAN><SPAN>=CE=AA=C8=AB=BE=D6=B1=E4=C1=BF=A3=AC=D4=DA=
=B3=CC=D0=F2=B5=C4=BF=AA=CD=B7=D2=D1=BE=AD=B6=A8=D2=E5=C1=CB</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: =
">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      </SPAN>with NotifyIcon do</SPAN></P>
      <P =
class=3DMsoNormal><SPAN>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      begin</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: =
"></SPAN>cbSize:=3DSizeOf(TNotifyIconData);</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: "></SPAN>Wnd:=3DHandle;<SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;=20
      =
</SPAN>//</SPAN><SPAN>=D6=B8=CF=F2=B5=B1=C7=B0=B4=B0=CC=E5</SPAN><SPAN>Fo=
rm1</SPAN><SPAN>=B5=C4=BE=E4=B1=FA</SPAN></P>
      <P class=3DMsoNormal><SPAN>uID:=3D1;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: "></SPAN>uFlags:=3DNIM_ICON or NIM_MESSAGE =
or=20
      NIM_TIP;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: =
"></SPAN>uCallBackMessage:=3DWM_NID;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: =
"></SPAN>hIcon:=3DApplication.Icon.Handle;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20
      style=3D"mso-spacerun: =
"></SPAN>szTip:=3D=A1=B1</SPAN><SPAN>=D5=C5=BC=D2=B6=F1=C9=D9</SPAN><SPAN=
>=A1=B1</SPAN><SPAN>=A3=BB</SPAN></P>
      <P class=3DMsoNormal><SPAN>end;.</SPAN></P>
      <P=20
      =
class=3DMsoNormal><SPAN>//</SPAN><SPAN>=B0=D1=C9=E8=D6=C3=BA=C3=B5=C4=B1=E4=
=C1=BF</SPAN><SPAN>NotifyIcon</SPAN><SPAN>=BC=D3=C8=EB=B5=BD=CF=B5=CD=B3=D6=
=D0=D2=D4=B1=E3=B4=A6=C0=ED</SPAN></P>
      <P =
class=3DMsoNormal><SPAN>Shell_NotifyIcon(NIM_ADD,@NotifyIcon);</SPAN></P>=

      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
">&nbsp;&nbsp;=20
      </SPAN>End;</SPAN></P>
      <P=20
      =
class=3DMsoNormal><SPAN>=CB=C4=A3=AE=BD=D3=CF=C2=C0=B4=BE=CD=CA=C7=B6=A8=D2=
=E5=D2=BB=B8=F6=CF=FB=CF=A2=B4=A6=C0=ED=BA=AF=CA=FD=A3=BA=CF=B5=CD=B3=B8=F8=
=B4=B0=CC=E5=B7=A2=C0=B4=C1=CB=D2=BB=B8=F6=CF=FB=CF=A2=A3=AC=BE=CD=D3=C9=CF=
=C2=C3=E6=D5=E2=B8=F6=BA=AF=CA=FD=C0=B4=B4=A6=C0=ED=A1=A3=C3=BF=B8=F6=CF=FB=
=CF=A2=B4=A6=C0=ED=BA=AF=CA=FD=B6=BC=CA=C7=B4=A6=C0=ED=C4=B3=D2=BB=C0=E0=CF=
=FB=CF=A2=B5=C4=A3=AC=B4=F3=BC=D2=D7=D0=CF=B8=B5=D8=BF=B4=BF=B4=CF=C2=C3=E6=
=BA=AF=CA=FD=CC=E5=B5=C4=B6=A8=D2=E5=BA=CD=D2=BB=B0=E3=B5=C4=BA=AF=CA=FD=B6=
=A8=D2=E5=D3=D0=CA=B2=C3=B4=B2=BB=D2=BB=D1=F9=A3=BA=CF=FB=CF=A2=B4=A6=C0=ED=
=BA=AF=CA=FD=D2=AA=D4=DA=BA=F3=C3=E6=BC=D3=C9=CF=CF=FB=CF=A2=B5=C4=C3=FB=B3=
=C6=A3=AC=D5=E2=D1=F9=B5=B1=CF=B5=CD=B3=B7=A2=C0=B4</SPAN><SPAN>WM_NID</S=
PAN><SPAN>=CF=FB=CF=A2=CA=B1=A3=AC=BE=CD=CA=C7=D7=D4=B6=AF=B4=A5=B7=A2</S=
PAN><SPAN>WMNID</SPAN><SPAN>=CF=FB=CF=A2=B4=A6=C0=ED=BA=AF=CA=FD=A1=A3</S=
PAN><SPAN></SPAN></P>
      <P class=3DMsoNormal><SPAN>procedure WMNID(var =
msg:TMessage);message=20
      WM_NID;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
"></SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      </SPAN></SPAN><SPAN>begin</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
"></SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</SPAN>case=20
      msg.LParam of</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
"></SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;&nbsp;&nbsp;</SPAN><SPAN=20
      style=3D"mso-spacerun: "> </SPAN>WM_LBUTTONUp; =
Form1.Visible:=3Dnot=20
      Form1.Visible;</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
"></SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;&nbsp;&nbsp; </SPAN><SPAN=20
      style=3D"mso-spacerun: "></SPAN>WM_RBUTTONUP:=20
      =
ShowMessage(=A1=AE</SPAN><SPAN>=C4=FA=B5=E3=BB=F7=B5=C4=CA=C7=D3=D2=BC=FC=
</SPAN><SPAN>=A1=AF);</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN style=3D"mso-spacerun: =
"></SPAN><SPAN=20
      style=3D"mso-spacerun: ">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
      </SPAN>End;</SPAN></P>
      <P class=3DMsoNormal><SPAN>End;</SPAN></P>
      <P=20
      =
class=3DMsoNormal><SPAN>=BA=C3=C1=CB=A3=AC=D2=BB=B8=F6=D7=EE=BC=F2=B5=A5=B5=
=C4=B3=CC=D0=F2=B5=AE=C9=FA=C1=CB=A3=AC=B4=F3=BC=D2=D7=D4=BC=BA=C9=E8=D6=C3=
=BA=C3=D7=D4=BC=BA=CF=B2=BB=B6=B5=C4=CD=BC=B1=EA</SPAN><SPAN>.</SPAN></P>=

      <P=20
      =
class=3DMsoNormal><SPAN>Project-&gt;Options,</SPAN><SPAN>=D1=A1=D6=D0</SP=
AN><SPAN>Application</SPAN><SPAN>=D2=B3=C3=E6=A3=AC=D4=DA</SPAN><SPAN>Ico=
n</SPAN><SPAN>=CF=EE=D6=D0=BC=D3=D4=D8=D7=D4=BC=BA=CF=B2=BB=B6=B5=C4=CD=BC=
=B1=EA=A3=AC=D5=E2=D1=F9=B3=CC=D0=F2=D4=CB=D0=D0=CA=B1=A3=AC=D4=DA=C8=CE=CE=
=F1=C0=B8=C0=EF=CF=D4=CA=BE=B5=C4=BE=CD=CA=C7=C4=E3=CF=B2=BB=B6=B5=C4=CD=BC=
=B1=EA=C1=CB=A1=A3=B5=B1=C4=E3=B5=A5=BB=F7=CD=BC=B1=EA=CA=B1=A3=AC=B4=B0=CC=
=E5</SPAN><SPAN>Form1</SPAN><SPAN>=BB=E1=D4=DA=BF=C9=BC=FB=D3=EB=B2=BB=BF=
=C9=BC=FB=D6=AE=BC=E4=C7=D0=BB=BB=A3=AC=D2=B2=BE=CD=CA=C7=CB=B5=B5=A5=BB=F7=
=D2=BB=CF=C2=CF=D4=CA=BE=A3=AC=D4=D9=B5=A5=BB=F7=D2=BB=CF=C2=D3=D6=D2=FE=B2=
=D8=A1=A3=B5=B1=C4=E3=D3=D2=BB=F7=CD=BC=B1=EA=B5=C4=CA=B1=BA=F2=BB=E1=B5=AF=
=B3=F6=D2=BB=CC=F5=CF=FB=CF=A2=A3=BA=A1=B0=C4=E3=B5=E3=BB=F7=B5=C4=CA=C7=D3=
=D2=BC=FC=A1=B1=A1=A3</SPAN><SPAN></SPAN></P>
      <P=20
class=3DMsoNormal><SPAN>=CE=E5=A3=AE=D7=EE=BA=F3=D2=AA=BC=C7=D7=A1=D4=DA=B9=
=D8=B1=D5=D3=A6=D3=C3=B3=CC=D0=F2=B5=C4=CA=B1=BA=F2=D2=AA=CA=CD=B7=C5=B5=F4=
=BD=A8=C1=A2=B5=C4=CD=D0=C5=CC=B3=CC=D0=F2=A3=AC=B7=F1=D4=F2=BB=E1=D5=BC=D3=
=C3=CF=B5=CD=B3=D7=CA=D4=B4=A1=A3</SPAN></P>
      <P =
class=3DMsoNormal><SPAN>TForm1.FormDestroy(Sender:TObject);</SPAN></P>
      <P class=3DMsoNormal><SPAN>Begin</SPAN></P>
      <P class=3DMsoNormal><SPAN><SPAN=20

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -