📄 用delphi编写后台监控软件.htm
字号:
<TR>
<TD align=middle>
<CENTER><IFRAME marginWidth=0 marginHeight=0
src="F:\资料\文字资料\计算机书籍与技术知识\用Delphi编写后台监控软件.files\adjuggler(2).htm"
frameBorder=0 noResize width=470 scrolling=no
height=60> <script language="JavaScript" src="http://ad4.enet.com.cn/cgi-bin/adjuggler?Pool=eschoolbanner&ajtype=jscript"> </script> </IFRAME></CENTER><BR></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<HR color=#a6ae97 SIZE=1>
</TD></TR></TBODY></TABLE>
<STYLE>A.article:link {
FONT-SIZE: 14px; COLOR: #0139ce; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.article:active {
FONT-SIZE: 14px; COLOR: #0139ce; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.article:visited {
FONT-SIZE: 14px; COLOR: #0139ce; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.article:hover {
FONT-SIZE: 14px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.red18:link {
FONT-SIZE: 14px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.red18:active {
FONT-SIZE: 14px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.red18:visited {
FONT-SIZE: 14px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.red18:hover {
FONT-SIZE: 14px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
A.red14:link {
FONT-SIZE: 12px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: none
}
A.red14:active {
FONT-SIZE: 12px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: none
}
A.red14:visited {
FONT-SIZE: 12px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: none
}
A.red14:hover {
FONT-SIZE: 12px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: none
}
A.blue14:link {
FONT-SIZE: 12px; COLOR: #4c4c4c; LINE-HEIGHT: 150%; TEXT-DECORATION: none
}
A.blue14:active {
FONT-SIZE: 12px; COLOR: #4c4c4c; LINE-HEIGHT: 150%; TEXT-DECORATION: none
}
A.blue14:visited {
FONT-SIZE: 12px; COLOR: #4c4c4c; LINE-HEIGHT: 150%; TEXT-DECORATION: none
}
A.blue14:hover {
FONT-SIZE: 12px; COLOR: #ff0000; LINE-HEIGHT: 150%; TEXT-DECORATION: underline
}
</STYLE>
<TABLE cellSpacing=0 cellPadding=2 width=540 align=center border=0>
<TBODY>
<TR>
<TD class=p12h vAlign=top>
<TABLE cellSpacing=0 cellPadding=2 width="100%" align=center
border=0>
<TBODY></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=2 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD class=p12h vAlign=bottom><CC>
<TABLE cellSpacing=0 width=200 border=0>
<TBODY>
<TR>
<TD>
<DIV id=school1 style="WIDTH: 500px">
<TABLE cellSpacing=0 cellPadding=0 width=200 border=0>
<TBODY>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3678_A20040908341846.html"
target=_blank><FONT
color=#dc6900>C++编程中的四个调试小技巧</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3670_A20040908341866.html"
target=_blank><FONT color=#dc6900>躲避骚扰
把QQ摄像头藏起来</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3923_A20040908341853.html"
target=_blank><FONT
color=#dc6900>印前电脑输出50个要注意的地方</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3667_A20040908341894.html"
target=_blank><FONT
color=#dc6900>最新恶意网页地址列表大全</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3781_A20040908341890.html"
target=_blank><FONT color=#dc6900>新奇职业：日入万元的新门路
</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3666_A20040908341909.html"
target=_blank><FONT
color=#dc6900>超酷手段:通过网页攻击客户机</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3667_A20040908341872.html"
target=_blank><FONT
color=#dc6900>自己动手清除电脑中的木马程序</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3666_A20040908341905.html"
target=_blank><FONT
color=#dc6900>怎么盗聊天室的脚本文件</FONT></A></TD></TR>
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://school.enet.com.cn/eschool/inforcenter/3780_A20040908341876.html"
target=_blank><FONT color=#dc6900>280万高校毕业生如何就业？
</FONT></A></TD></TR><!--wget finished successful flag-->
<TR>
<TD align=left height=18><B><FONT
color=#dc6900>·</FONT></B><A class=zz01
href="http://boosen.adsunion.com/adsunion/lnk/;ik=407e5364d181e;pl=pl-17-bigbutton;/?http://h50042.www5.hp.com/homeandoffice/cebit/?jumpid=ex_hphqapcn_CNExhibit/201152CN415025/enet"
target=_blank><FONT
color=#dc6900>惠普邀您体验超High数字生活</FONT></A></TD></TR></TBODY></TABLE></DIV>
<DIV id=school2
style="Z-INDEX: 1; VISIBILITY: hidden; POSITION: absolute"></DIV></TD></TR></TBODY></TABLE>
<SCRIPT>marqueesHeight=54;stopscroll=false;school1.scrollTop=0;with(school1){ style.width=0; style.height=marqueesHeight; style.overflowX="visible"; style.overflowY="hidden"; noWrap=true; onmouseover=new Function("stopscroll=true"); onmouseout=new Function("stopscroll=false");}preTop=0; currentTop=0; stoptime=0;function init_srolltext(){ school2.innerHTML=""; school2.innerHTML+=school1.innerHTML; school1.innerHTML=school2.innerHTML+school2.innerHTML; setInterval("scrollUp()",50);}function scrollUp(){ if(stopscroll==true) return; currentTop+=1; if(currentTop==19) { stoptime+=1; currentTop-=1; if(stoptime==50) { currentTop=0; stoptime=0; } } else { preTop=school1.scrollTop; school1.scrollTop+=1; if(preTop==school1.scrollTop){ school1.scrollTop=school2.offsetHeight-marqueesHeight; school1.scrollTop+=1; } }}init_srolltext(); </SCRIPT>
</CC></TD></TR></TBODY></TABLE></TD>
<TD class=p14h width=360>
<TABLE cellSpacing=0 cellPadding=2 align=right border=0>
<TBODY>
<TR>
<TD><IFRAME marginWidth=0 marginHeight=0
src="F:\资料\文字资料\计算机书籍与技术知识\用Delphi编写后台监控软件.files\adjuggler(3).htm"
frameBorder=0 noResize width=360 scrolling=no
height=300> <script language="JavaScript" src="http://ad4.enet.com.cn/cgi-bin/adjuggler?Pool=eschoolflash&ajtype=jscript"> </script> </IFRAME></TD></TR></TBODY></TABLE></TD></TR>
<TR bgColor=#969696>
<TD colSpan=2 height=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=2 width=580 align=center border=0>
<TBODY>
<TR>
<TD class=p14h><A
name=part></A> 后台监控软件，为了达到隐蔽监控的目的，应该满足正常运行时，不显示在任务栏上，在按Ctrl+Alt+Del出现的任务列表中也不显示，管理员可以通过热键调出隐藏的运行界面。要作到这些，必须把当前进程变为一个系统服务，并且定义全局热键。
<BR><BR> 一、把当前进程变为一个系统服务:
<BR><BR> 目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。
<BR><BR> 二、定义全局热键（本例中定义热键Ctrl+Del+R），步骤：
<BR><BR> 1、定义捕获Windows消息WM_HOTKEY的钩子函数，即：procedure WMHotKey(var Msg
: TWMHotKey); message WM_HOTKEY; <BR><BR> 2、向Windows加入一个全局原子
Myhotkey: GlobalAddAtom(’MyHotkey’), 并保留其句柄。
<BR><BR> 3、向Windows登记热键：调用API函数RegisterHotKey实现。 <BR><BR> 三、源程序：
<BR><BR>unit Unit1; <BR>interface <BR>uses <BR>Windows, Messages,
Forms, Dialogs, Classes, Controls, StdCtrls; <BR>type <BR>TForm1 =
class(TForm) <BR>Button1: TButton; <BR>Button2: TButton;
<BR>procedure FormCreate(Sender: TObject); <BR>procedure
Button1Click(Sender: TObject); <BR>procedure Button2Click(Sender:
TObject); <BR>procedure FormClose(Sender: TObject; var Action:
TCloseAction); <BR>private <BR>{热键标识ID} <BR>id: Integer;
<BR>procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
<BR>{ Privat-Declarations} <BR>public <BR>{ Public-Declarations}
<BR>end; <BR>var <BR>Form1 : TForm1; <BR>implementation <BR>const
RSP_SIMPLE_SERVICE=1; <BR>function RegisterServiceProcess
(dwProcessID, dwType: DWord) : DWord; stdcall; external
’KERNEL32.DLL’; <BR>{$R *.DFM} <BR><BR>{捕获热键消息} <BR>procedure
TForm1.WMHotKey (var Msg : TWMHotKey); <BR>begin <BR>if msg.HotKey =
id then <BR>ShowMessage(’Ctrl+Alt+R键被按下!’); <BR>form1.Visible
:=true; <BR>end; <BR><BR>procedure TForm1.FormCreate(Sender:
TObject); <BR>Const <BR>{ALT、CTRL和R键的虚拟键值} <BR>MOD_ALT = 1;
<BR>MOD_CONTROL = 2; <BR>VK_R = 82; <BR>begin <BR>{首先判断程序是否已经运行}
<BR>if GlobalFindAtom(’MyHotkey’) = 0 then <BR>begin <BR>{注册全局热键Ctrl
+ Alt + R} <BR>id:=GlobalAddAtom(’MyHotkey’);
<BR>RegisterHotKey(handle,id,MOD_CONTROL+MOD_Alt,VK_R); <BR>end
<BR>else <BR>halt; <BR>end;
<BR><BR><BR> {把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来} <BR><BR><BR>procedure
TForm1.Button1Click(Sender: TObject); <BR>begin
<BR>RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
<BR>form1.Hide; <BR>end; <BR><BR>procedure
TForm1.Button2Click(Sender: TObject); <BR>begin <BR>close; <BR>end;
<BR>{退出时释放全局热键} <BR>procedure TForm1.FormClose(Sender: TObject; var
Action: TCloseAction); <BR>begin <BR>UnRegisterHotKey(handle,id);
<BR>GlobalDeleteAtom(id); <BR>end; <BR>end. <BR><BR><BR> 四、说明：
<BR><BR> 在后台监控软件中使用以上功能，可真正实现隐蔽运行，热键调出，便于管理员进行管理。程序在Win98，Delphi5.0中运行通过。
<BR><BR></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=5 cellPadding=3 width=580 align=center border=0>
<TBODY>
<TR>
<TD><A
href="http://universalmccannafa.allyes.com/main/adfclick?db=universalmccannafa&bid=144,139,30&cid=171,6,1&sid=308&show=ignore&url=http://www.microsoft.com/china/msdn/events/FeatureEvents/2004/SmartClientCaseStudy/index.aspx"><FONT
color=#ff0000>展望与深入了解智能客户端开发技术及企业案例分析,即将在６个城市拉开帷幕。快快来注册吧！</FONT></A></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=580 align=center border=0>
<TBODY>
<TR>
<TD align=right></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=580 align=center border=0>
<TBODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -