win98下如何防止应用程序被杀呀? ( 积分: 50 )

  • 主题发起人 主题发起人 fire.bruin
  • 开始时间 开始时间
F

fire.bruin

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.HideTask;<br>var<br> &nbsp;hLib: THandle;<br>begin<br> &nbsp;hLib := LoadLibrary('Kernel32.dll');<br> &nbsp;if hLib&lt;&gt;0 then<br> &nbsp;begin<br> &nbsp; &nbsp;@regservice := GetProcAddress(hLib, 'RegisterServiceProcess');<br> &nbsp; &nbsp;if @regservice&lt;&gt;nil then<br> &nbsp; &nbsp; &nbsp; regservice(GetCurrentProcessID,1);//1=hide,0=show;<br> &nbsp; &nbsp;FreeLibrary(hLib);<br> &nbsp;End;<br>end;<br><br>只能隐藏,但用进程专杀工具一样被杀。
 
procedure TForm1.HideTask;<br>var<br> &nbsp;hLib: THandle;<br>begin<br> &nbsp;hLib := LoadLibrary('Kernel32.dll');<br> &nbsp;if hLib&lt;&gt;0 then<br> &nbsp;begin<br> &nbsp; &nbsp;@regservice := GetProcAddress(hLib, 'RegisterServiceProcess');<br> &nbsp; &nbsp;if @regservice&lt;&gt;nil then<br> &nbsp; &nbsp; &nbsp; regservice(GetCurrentProcessID,1);//1=hide,0=show;<br> &nbsp; &nbsp;FreeLibrary(hLib);<br> &nbsp;End;<br>end;<br><br>只能隐藏,但用进程专杀工具一样被杀。
 
后退
顶部