功能:当程序正常运行时,用户按下EL+ALT+CTRL找不到程序名<br>{调用API函数}<br>function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';<br>{隐藏程序名}<br>procedure TStealth.HideApplication;<br>begin<br> if not (csDesigning in ComponentState) then<br> RegisterServiceProcess(GetCurrentProcessID, 1);<br>end;<br>{显示程序名}<br>procedure TStealth.ShowApplication;<br>begin<br> if not (csDesigning in ComponentState) then<br> RegisterServiceProcess(GetCurrentProcessID, 0);<br>end;