W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-31 #2 老有人问这种问题 :(<br>检索一下“隐藏”肯定有答案,你也一定会对答案不怎么满意。
T terry_lzs Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-31 #3 既然你懒得找,我就贴出来给你看看吧,不过只能在win98下用<br>implementation<br>function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';<br>{$R *.DFM}<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> RegisterServiceProcess(GetCurrentProcessID, 1);<br>end;<br>要不这样也行<br>type<br> TRegisterServiceProcess = function (dwProcessID, dwTypeWord) : DWORD; stdcall;<br><br>{$R *.DFM}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> H :THandle;<br> RegisterServiceProcess: TRegisterServiceProcess;<br>begin<br> H:=LoadLibrary('KERNEL32.DLL');<br> RegisterServiceProcess:=GetProcAddress(H, 'RegisterServiceProcess');<br> RegisterServiceProcess (GetCurrentProcessID, 1);<br> FreeLibrary(H);<br>end;<br><br>
既然你懒得找,我就贴出来给你看看吧,不过只能在win98下用<br>implementation<br>function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';<br>{$R *.DFM}<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> RegisterServiceProcess(GetCurrentProcessID, 1);<br>end;<br>要不这样也行<br>type<br> TRegisterServiceProcess = function (dwProcessID, dwTypeWord) : DWORD; stdcall;<br><br>{$R *.DFM}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> H :THandle;<br> RegisterServiceProcess: TRegisterServiceProcess;<br>begin<br> H:=LoadLibrary('KERNEL32.DLL');<br> RegisterServiceProcess:=GetProcAddress(H, 'RegisterServiceProcess');<br> RegisterServiceProcess (GetCurrentProcessID, 1);<br> FreeLibrary(H);<br>end;<br><br>
C chonsee Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-31 #4 这也叫隐藏进程<br> 用findfirstprocess之类的api还是能看见啊<br> 能不能来一点高级的,这些都是老掉牙了