📄 delphi制作托盘程序.mht
字号:
</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> </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> </TD></TR></TBODY></TABLE>
<DIV class=3Dmodbox id=3Dm_blog>
<DIV class=3Dtit>Delphi:=D6=C6=D7=F7=CD=D0=C5=CC=B3=CC=D0=F2</DIV>
<DIV class=3Ddate>2008-10-05 11:42</DIV>
<TABLE style=3D"TABLE-LAYOUT: fixed">
<TBODY>
<TR>
<TD>
<DIV class=3Dcnt id=3Dblog_text>
<P>unit uMain;</P>
<P>interface</P>
<P>uses<BR>Windows, Messages, SysUtils, Classes, Graphics, =
Controls,=20
Forms, Dialogs, shellapi,<BR>Menus, Buttons,=20
ExtCtrls;<BR>const<BR>mousemsg =3D wm_user + 1;<BR>iid =3D=20
100;<BR>type<BR>TForm1 =3D class(TForm)<BR> =
MainMenu1:=20
TMainMenu;<BR> Panel1: =
TPanel;<BR> =20
SpeedButton1: TSpeedButton;<BR> SpeedButton6:=20
TSpeedButton;<BR> SpeedButton7:=20
TSpeedButton;<BR> SpeedButton8:=20
TSpeedButton;<BR> SpeedButton9:=20
TSpeedButton;<BR> SpeedButton10:=20
TSpeedButton;<BR> PopupMenu1:=20
TPopupMenu;<BR> exit1: =
TMenuItem;<BR> =20
SpeedButton2: TSpeedButton;<BR> procedure=20
SQLLMClick(Sender: TObject);<BR> procedure=20
N2Click(Sender: TObject);<BR> procedure=20
SpeedButton1Click(Sender: TObject);<BR> =
procedure=20
FormClose(Sender: TObject; var Action:=20
TCloseAction);<BR> procedure FormCreate(Sender:=20
TObject);<BR> procedure exit1Click(Sender:=20
TObject);<BR>private<BR> { Private declarations=20
}<BR> procedure mousemessage(var =
message:=20
tmessage); message<BR> =20
mousemsg;<BR>public<BR> { Public declarations=20
}<BR> procedure exec(sender: =
tobject);<BR>end;</P>
<P>var<BR>Form1: TForm1;<BR>ntida: =
TNotifyIcondataA;<BR>implementation</P>
<P>{$R *.DFM}<BR>procedure TForm1.mousemessage(var message:=20
tmessage);<BR>var<BR>mousept: TPoint;<BR>begin<BR>inherited;<BR>if =
message.LParam =3D wm_rbuttonup then =
begin<BR> =20
getcursorpos(mousept);<BR> =20
popupmenu1.popup(mousept.x, mousept.y);<BR> =
end;<BR>if=20
message.LParam =3D wm_lbuttonup then =
begin<BR> =20
ShowWindow(Handle, SW_SHOW);<BR> =20
ShowWindow(Application.handle, =
SW_SHOW);<BR> =20
SetWindowLong(Application.Handle,=20
GWL_EXSTYLE,<BR> not=20
(GetWindowLong(Application.handle,=20
GWL_EXSTYLE)<BR> or=20
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));<BR> =20
end;<BR>message.Result :=3D 0;<BR>end;</P>
<P>Procedure TForm1.FormClose(Sender: TObject; var Action:=20
TCloseAction);<BR>begin<BR>Action :=3D caNone; =
<BR>ShowWindow(Handle,=20
SW_HIDE);<BR>ShowWindow(Application.Handle,=20
SW_HIDE);<BR>SetWindowLong(Application.Handle,=20
GWL_EXSTYLE,<BR> not =
(GetWindowLong(Application.handle,=20
GWL_EXSTYLE)<BR> or WS_EX_TOOLWINDOW and not=20
WS_EX_APPWINDOW));<BR>end;</P>
<P>procedure TForm1.FormCreate(Sender: =
TObject);<BR>begin<BR>ntida.cbSize=20
:=3D sizeof(tnotifyicondataa);<BR>ntida.Wnd :=3D =
handle;<BR>ntida.uID :=3D iid;=20
ntida.uFlags :=3D nif_icon + nif_tip +<BR> =
nif_message;=20
ntida.uCallbackMessage :=3D mousemsg;<BR>ntida.hIcon :=3D=20
Application.Icon.handle;<BR>ntida.szTip :=3D=20
'Icon';<BR>shell_notifyicona(NIM_ADD, @ntida);<BR>end;</P>
<P>procedure TForm1.exit1Click(Sender: =
TObject);<BR>begin<BR>ntida.cbSize=20
:=3D sizeof(tnotifyicondataa);<BR>ntida.wnd :=3D =
handle;<BR>ntida.uID :=3D=20
iid;<BR>ntida.uFlags :=3D nif_icon + nif_tip +=20
nif_message;<BR>ntida.uCallbackMessage :=3D =
mousemsg;<BR>ntida.hIcon :=3D=20
Application.Icon.handle;<BR>ntida.szTip :=3D=20
'Icon';<BR>shell_notifyicona(NIM_DELETE,=20
@ntida);<BR>Application.Terminate;<BR>end;</P>
<P>end.</P></DIV></TD></TR></TBODY></TABLE><BR>
<DIV class=3Dopt><A =
title=3D=B2=E9=BF=B4=B8=C3=B7=D6=C0=E0=D6=D0=CB=F9=D3=D0=CE=C4=D5=C2=20
href=3D"http://hi.baidu.com/xingfupingguo/blog/category/delphi%B1%E0%B3%C=
C">=C0=E0=B1=F0=A3=BAdelphi=B1=E0=B3=CC</A>=20
| <A =
title=3D=BD=AB=B4=CB=CE=C4=D5=C2=CC=ED=BC=D3=B5=BD=B0=D9=B6=C8=CB=D1=B2=D8=
onclick=3D"return addToFavor();"=20
href=3D"http://cang.baidu.com/do/add" =
target=3D_blank>=CC=ED=BC=D3=B5=BD=CB=D1=B2=D8</A> | =E4=AF=C0=C0(<SPAN=20
id=3Dresult></SPAN>) | <A=20
href=3D"http://hi.baidu.com/xingfupingguo/blog/item/b26cdd311243ffae5edf0=
e17.html#send">=C6=C0=C2=DB</A> (0)
<SCRIPT language=3Djavascript>=0A=
/*<![CDATA[*/=0A=
var pre =3D [true,'flash=B9=CA=CA=C2', =
'flash=B9=CA=CA=C2','/xingfupingguo/blog/item/823e58120ef67a57f919b85a.ht=
ml'];=0A=
var post =3D =
[true,'Delphi:=CD=D0=C5=CC=B3=CC=D0=F2=CA=B5=D5=BD','Delphi:=CD=D0=C5=CC=B3=
=CC=D0=F2=CA=B5=D5=BD', =
'/xingfupingguo/blog/item/9d495bf32aa32256352acc10.html'];=0A=
if(pre[0] || post[0]){=0A=
document.write('<div =
style=3D"height:5px;line-height:5px;"> </div><div id=3D"in_nav">');=0A=
if(pre[0]){=0A=
document.write('=C9=CF=D2=BB=C6=AA=A3=BA<a href=3D"' + pre[3] + '" =
title=3D"' + pre[1] + '">' + pre[2] + '</a> ');=0A=
}=0A=
if(post[0]){=0A=
document.write('=CF=C2=D2=BB=C6=AA=A3=BA<a href=3D"' + post[3] + '" =
title=3D"' + post[1] + '">' + post[2] + '</a>');=0A=
}=0A=
document.write('</div>');=0A=
}=0A=
/*]]>*/=0A=
</SCRIPT>
</DIV>
<DIV class=3Dline></DIV>
<STYLE type=3Dtext/css>#in_related_doc A {
TEXT-DECORATION: none
}
</STYLE>
<DIV id=3Din_related_tmp></DIV>
<SCRIPT language=3Djavascript type=3Dtext/javascript>=0A=
/*<![CDATA[*/=0A=
function HI_MOD_IN_RELATED_DOC_CALLBACK(arg){=0A=
if(arg.length <=3D 1) return false;=0A=
var hasMore =3D arg[0];=0A=
var D=3Dfunction(A,B){A[A.length]=3DB;}=0A=
if(arg.length % 2 =3D=3D 0) D(arg, ["","","",""]);=0A=
=0A=
var html =3D ['<div id=3D"in_related_doc"><div =
class=3D"tit">=CF=E0=B9=D8=CE=C4=D5=C2=A3=BA</div>'];=0A=
D(html, '<table cellpadding=3D"0" cellspacing=3D"3" border=3D"0">');=0A=
for(var i =3D 1, j =3D arg.length; i < j; i +=3D 2){=0A=
D(html, '<tr>');=0A=
D(html, '<td width=3D"15px"><a style=3D"font-size:25px" =
>•</a></td><td><a href=3D"http://hi.baidu.com/' + arg[i][3] + =
'/blog/item/' + arg[i][2] + '.html" target=3D"_blank" title=3D"' + =
arg[i][0] + '">' + arg[i][1] + '</a>');=0A=
D(html, new Array(10).join('\u3000'));=0A=
D(html, '</td>');=0A=
if(arg[i + 1][0] !=3D "")=0A=
D(html, '<td width=3D"15px"><a style=3D"font-size:25px" =
>•</a></td><td><a href=3D"http://hi.baidu.com/' + arg[i + 1][3] + =
'/blog/item/' + arg[i + 1][2] + '.html" target=3D"_blank" title=3D"' + =
arg[i + 1][0] + '">' + arg[i + 1][1] + '</a></td>');=0A=
else=0A=
D(html, '<td> </td><td> </td>');=0A=
D(html, '</tr>');=0A=
}=0A=
if(hasMore) D(html, '<tr><td colspan=3D"4"><a target=3D"_blank" =
href=3D"/sys/search?pageno=3D1&type=3D7&sort=3D1&word=3DDelphi%3A%D6%C6%D=
7%F7%CD%D0%C5%CC%B3%CC%D0%F2&item=3Db26cdd311243ffae5edf0e17">=B8=FC=B6=E0=
>></a></td></tr>');=0A=
D(html, '</table></div><div class=3D"line"> </div>');=0A=
=0A=
var div =3D document.getElementById('in_related_tmp');=0A=
if(div){=0A=
div.innerHTML =3D html.join('');=0A=
while(div.firstChild){=0A=
div.parentNode.insertBefore(div.firstChild, div);=0A=
}=0A=
div.parentNode.removeChild(div);=0A=
}=0A=
window.setTimeout("tracker_init('in_related_doc')",100);=0A=
}=0A=
=0A=
if(RelatedDocData =3D=3D -1){ // not supported xhr=0A=
var script =3D document.createElement('script');=0A=
script.type =3D 'text/javascript';=0A=
script.src =3D =
'/sys/search?type=3D8&word=3DDelphi%3A%D6%C6%D7%F7%CD%D0%C5%CC%B3%CC%D0%F=
2&item=3Db26cdd311243ffae5edf0e17&t=3D' + new Date().getTime();=0A=
document.getElementsByTagName('HEAD')[0].appendChild(script);=0A=
}else if(RelatedDocData =3D=3D null){=0A=
GetAndEval =3D true;=0A=
}else{=0A=
eval(RelatedDocData);=0A=
}=0A=
=0A=
/*]]>*/=0A=
</SCRIPT>
<DIV id=3Din_reader>
<DIV class=3Dtit>=D7=EE=BD=FC=B6=C1=D5=DF=A3=BA</DIV>
<SCRIPT>=0A=
=0A=
var g_spAnnony=3Dtrue;=0A=
=0A=
=0A=
var g_read=3D[=0A=
=0A=
{}=0A=
];=0A=
g_read.length=3Dg_read.length-1;=0A=
=0A=
var _rh1=3D"";=0A=
var _rh2=3D"";=0A=
=0A=
function wrreader(){=0A=
_rh1 +=3D '<table width=3D"100%" ><tr>';=0A=
_rh2+=3D'<tr>';=0A=
if(g_spAnnony){=0A=
_rh1+=3D'<td align=3D"center" width=3D"10%" ><img border=3D"0" =
width=3D"55" height=3D"55" =
src=3D"http://img.baidu.com/hi/img/portraitn.jpg"></td>';=0A=
_rh2+=3D'<td> </td>';=0A=
if(g_read.length>0){=0A=
_rh1+=3D'<td align=3D"left" width=3D"12%">';=0A=
}else{=0A=
_rh1+=3D'<td align=3D"left" width=3D"100%">';=0A=
}=0A=
_rh1+=3D'<a =
href=3D"http://passport.baidu.com/?login&tpl=3Dsp&tpl_reg=3Dsp&u=3D'+myre=
f+'" =
target=3D"_self">=B5=C7=C2=BC</a>=BA=F3=A3=AC=C4=FA=BE=CD=B3=F6=CF=D6=D4=DA=
=D5=E2=C0=EF=A1=A3</td>';=0A=
_rh2+=3D'<td> </td>'=0A=
}=0A=
if(g_read.length=3D=3D0){=0A=
if(!g_spAnnony){=0A=
_rh1+=3D'<td align=3Dleft =
width=3D"100%">=D7=EE=BD=FC=BB=B9=C3=BB=D3=D0=B5=C7=C2=BC=D3=C3=BB=A7=BF=B4=
=B9=FD=D5=E2=C6=AA=CE=C4=D5=C2=A1=AD=A1=AD</td>';=0A=
_rh2+=3D'<td> </td>';=0A=
}=0A=
}else{=0A=
for(i=3D0,len=3Dg_read.length;i<len;i++){=0A=
_rh1+=3D'<td align=3D"center" valign=3D"bottom" width=3D"10%" =
class=3D"user"><a href=3D"/'+g_read[i][0]+'" target=3D"_blank"><img =
border=3D"0" =
src=3D"http://himg.baidu.com/sys/portraitn/item/'+g_read[i][1]+'.jpg"></a=
></td>';=0A=
_rh2+=3D'<td align=3D"center" valign=3D"top" class=3D"user"><a =
href=3D"/'+g_read[i][0]+'" target=3D"_blank">'+g_read[i][2]+'</a></td>';=0A=
}=0A=
}=0A=
_rh1+=3D'<td width=3D"100%"></td></tr>';=0A=
_rh2+=3D'<td></td></tr></table>';=0A=
document.write(_rh1+_rh2);=0A=
}=0A=
=0A=
wrreader();=0A=
</SCRIPT>
</DIV>
<DIV class=3Dline></DIV>
<SCRIPT language=3DJavaScript>=0A=
allkey=3Dallkey+"ad51577af1fd2bed2e73b3f7_b26cdd311243ffae5edf0e17_";=0A=
</SCRIPT>
<DIV id=3Din_comment><A name=3Dcomment></A>
<DIV class=3Dtit>=CD=F8=D3=D1=C6=C0=C2=DB=A3=BA</DIV>
<SCRIPT>=0A=
function writecmt(type,id,cmtname,cmturl,portraitId){=0A=
var html1=3D"";=0A=
=0A=
if(type=3D=3D1){=0A=
html1=3D"<a href=3D'"+cmturl+"' target=3D'_blank' =
title=3D'"+cmturl+"'><img border=3D'0' =
src=3D'http://himg.baidu.com/sys/portraitn/item/"+portraitId+".jpg'><br>"=
+cmtname+"</a>";=0A=
}else{=0A=
if(cmtname=3D=3D"" || cmtname=3D=3D"=C4=E4=C3=FB=CD=F8=D3=D1"){=0A=
if(cmturl=3D=3D""){=0A=
html1=3D"<a>=C4=E4=C3=FB=CD=F8=D3=D1</a>";=0A=
}else{=0A=
html1=3D"<a href=3D'"+cmturl+"' target=3D'_blank' =
title=3D'"+cmturl+"'>"+cmtname+"</a>";=0A=
}=0A=
}else{=0A=
if(cmturl=3D=3D""){=0A=
html1=3D"<div class=3D'f14' =
style=3D'display:inline'>=CD=F8=D3=D1:<a>"+cmtname+"</a></div>";=0A=
}else{=0A=
html1=3D"<div class=3D'f14' style=3D'display:inline'>=CD=F8=D3=D1:<a =
href=3D'"+cmturl+"' target=3D'_blank' =
title=3D'"+cmturl+"'>"+cmtname+"</a></div>";=0A=
}=0A=
}=0A=
}=0A=
document.write(html1);=0A=
}=0A=
=0A=
</SCRIPT>
<DIV id=3Dpage></DIV></DIV>
<DIV id=3Din_send><A name=3Dsend></A>
<FORM id=3DpopFormSubmit name=3Dform1 onsubmit=3D"return checkcmtform()" =
action=3D/xingfupingguo/commit method=3Dpost><INPUT type=3Dhidden =
value=3D8 name=3Dct>=20
<INPUT type=3Dhidden value=3D1 name=3Dcm> <INPUT type=3Dhidden=20
value=3Db26cdd311243ffae5edf0e17 name=3DspBlogID> <INPUT id=3DspRefURL =
type=3Dhidden=20
name=3DspRefURL>
<SCRIPT>=0A=
document.getElementById("spRefURL").value =3D window.location.href;=0A=
</SCRIPT>
=20
<DIV class=3Dtit>=B7=A2=B1=ED=C6=C0=C2=DB=A3=BA</DIV>
<TABLE cellSpacing=3D5 cellPadding=3D0 width=3D620 border=3D0>
<TBODY>
<TR>
<TD class=3Df14>=D0=D5=A1=A1=C3=FB=A3=BA</TD>
<TD><INPUT id=3DspBlogCmtor style=3D"WIDTH: 220px" =
onfocus=3DhidErr(1);=20
tabIndex=3D1 maxLength=3D49 onchange=3D"checkname('spBlogCmtor')"=20
name=3DspBlogCmtor>
<SCRIPT>=0A=
document.write(" <a =
href=3D'http://passport.baidu.com/?reg&tpl=3Dsp&return_method=3Dget&skip_=
ok=3D1&u=3Dhttp://hi.baidu.com/sys/reg/' =
target=3D'_blank'>=D7=A2=B2=E1</a>");=0A=
document.write(' | <a =
href=3D"http://passport.baidu.com/?login&tpl=3Dsp&tpl_reg=3Dsp&u=3D'+myre=
f+'">=B5=C7=C2=BC</a>');=0A=
=0A=
</SCRIPT>
=20
<DIV id=3Dnmerror style=3D"DISPLAY: =
none">*=D0=D5=C3=FB=D7=EE=B3=A4=CE=AA50=D7=D6=BD=DA</DIV></TD></TR>
<TR id=3D1_err style=3D"DISPLAY: none">
<TD> </TD>
<TD>
<DIV class=3Derror id=3D1_err_con></DIV></TD></TR>
<TR>
<TD class=3Df14>=CD=F8=D6=B7=BB=F2=D3=CA=CF=E4=A3=BA</TD>
<TD><INPUT id=3DspBlogCmtURL style=3D"WIDTH: 360px" =
onfocus=3DhidErr(2);=20
tabIndex=3D2 maxLength=3D128 =
onchange=3D"checkeandu('spBlogCmtURL')"=20
name=3DspBlogCmtURL> (=D1=A1=CC=EE)</TD>
<SCRIPT>=0A=
G("spBlogCmtor").value=3D"";=0A=
G("spBlogCmtURL").value=3D"";=0A=
</SCRIPT>
</TR>
<TR id=3D2_err style=3D"DISPLAY: none">
<TD> </TD>
<TD>
<DIV class=3Derror id=3D2_err_con></DIV></TD></TR>
<TR>
<TD class=3Df14 vAlign=3Dtop>=C4=DA=A1=A1=C8=DD=A3=BA</TD>
<TD><TEXTAREA id=3DspBlogCmtText style=3D"WIDTH: 520px; HEIGHT: =
155px" onfocus=3DhidErr(3); tabIndex=3D3 =
name=3DspBlogCmtText></TEXTAREA>
<SCRIPT>=0A=
G("spBlogCmtor").value=3DG("spBlogCmtor").defaultValue;=0A=
G("spBlogCmtText").value=3D"";=0A=
</SCRIPT>
</TD></TR>
<TR id=3D3_err style=3D"DISPLAY: none">
<TD> </TD>
<TD>
<DIV class=3Derror id=3D3_err_con></DIV></TD></TR>
<TR id=3Dvercode>
<TD class=3Df14 vAlign=3Dtop>=D1=E9=D6=A4=C2=EB=A3=BA</TD>
<TD vAlign=3Dtop><INPUT type=3Dhidden=20
=
value=3D30357370616365313539333330373030303030303030303030303030303030313=
2323534363534313044D5D01EEB437880B702AF8DC49B4C61=20
name=3DspVcode> <INPUT id=3DspVerifyKey onfocus=3Df_focus() =
tabIndex=3D4=20
maxLength=3D4 size=3D6 name=3DspVerifyKey =
autocomplete=3D"off"><BR>
<SCRIPT type=3Dtext/javascript>=0A=
/*<![CDATA[*/=0A=
var =
imgsrc=3D"http://hiup.baidu.com/cgi-bin/genimg?30357370616365313539333330=
3730303030303030303030303030303030303132323534363534313044D5D01EEB437880B=
702AF8DC49B4C61";=0A=
function f_focus(){=0A=
if(G('yanzheng').style.display=3D=3D"none" ){=0A=
G('verifypic').src=3Dimgsrc;=0A=
G('yanzheng').style.display=3D"block";=0A=
}=0A=
}=0A=
function newverifypic(){=0A=
G("verifypic").src =3D imgsrc +"&t=3D"+ Math.random();=0A=
return false;=0A=
}=0A=
/*]]>*/=0A=
</SCRIPT>
<DIV id=3Dyanzheng style=3D"DISPLAY: none"><IMG id=3Dverifypic =
height=3D40=20
width=3D120><WBR><A =
title=3D=BF=B4=B2=BB=C7=E5=D7=F3=B1=DF=B5=C4=D7=D6=B7=FB =
onfocus=3Dthis.blur();=20
onclick=3D"return newverifypic();"=20
=
href=3D"http://hi.baidu.com/xingfupingguo/blog/item/b26cdd311243ffae5edf0=
e17.html#">=BF=B4=B2=BB=C7=E5?</A>=20
</DIV></TD></TR>
<TR>
<TD class=3Df14 vAlign=3Dtop> </TD>
<TD class=3Df14 vAlign=3Dtop><INPUT id=3Dbtn_ok tabIndex=3D5 =
type=3Dsubmit value=3D=B7=A2=B1=ED=C6=C0=C2=DB =
name=3Dbtn_ok></TD></TR></TBODY></TABLE></FORM></DIV><BR></DIV>
<TABLE height=3D8 cellSpacing=3D0 cellPadding=3D0 width=3D"100%" =
border=3D0>
<TBODY>
<TR>
<TD class=3Dmodbl width=3D7> </TD>
<TD class=3Dmodbc> </TD>
<TD class=3Dmodbr =
width=3D7> </TD></TR></TBODY></TABLE></DIV></DIV></DIV></DIV>
<SCRIPT language=3Djavascript>=0A=
<!--=0A=
var hstr=3D"/xingfupingguo/brwstat?key1=3D1";=0A=
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -