本文整理自网络,侵删。
在开发某些软件的时候,为了保护程序自身,就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法:
1、创建一个新的项目 Project1选择File,New Application。在表单Form1上放一Memo组件,一个OK按钮组件,改变OK按钮组件的Cation属性为 CreateProcess。再放一个timer组件。设置timer组件的Interval值为1000,每秒检查一次进程是否终止。
2、在Unit1 Use节的Type后定义一个过程procedure EstablishProcess;在Unit1 Use节的Var后定义一个变量:piProcInfoGPS:PROCESS_INFORMATION;
3、在Unit1 implementation节中编写EstablishProcess过程的实现代码如下:procedure EstablishProcess;Var siStartupInfSTARTUPINFO; saProcess,saThread:SECURITY_ATTRIBUTES; fSuccess:boolean;begin fSuccess:=false; ZeroMemory(@siStartupInfo,sizeof(siStartupInfo)); siStartupInfo.cb:=sizeof(siStartupInfo); saProcess.nLength:=sizeof(saProcess); saProcess.lpSecurityDescriptor:=PChar(nil); saProcess.bInheritHandle:=true; saThread.nLength:=sizeof(saThread); saThread.lpSecurityDescriptor:=PChar(nil); saThread.bInheritHandle:=true; fSuccess:=CreateProcess(PChar(nil),'c:\sr350\Sr350buff',@saProcess,@saThread,false, CREATE_DEFAULT_ERROR_MODE,Pchar(nil),Pchar(nil),siStartupInfo,piProcInfoGPS); if( not fSuccess)then Form1.Memo1.Lines.Add('Create Process Sr350buff fail.') else Form1.Memo1.Lines.Add('Create Process Sr350buff success.')end;4、在CreateProcess按钮的OnClick事件中调用过程EstablishProcess;5、为Timer1的OnTimer事件编写代码:Procedure TForm1.Timer1Timer(Sender: TObject);Var dwExitCode:DWORD; fprocessExit:boolean;Begin dwExitCode:=0; fprocessExit:=false; fprocessExit:=GetExitCodeProcess(piProcInfoGPS.hProcess,dwExitCode); if(fprocessExit and (dwExitCode<>STILL_ACTIVE))then begin Memo1.Lines.Add('SR350buff.exe进程终止'); CloseHandle(piProcInfoGPS.hThread); CloseHandle(piProcInfoGPS.hProcess); EstablishProcess; end;End;6、程序中设可执行文件名为c:\sr350\sr350buff.exe,所以c:盘\sr350目录下需有sr350buff.exe文件。7、编译联接,运行project1,单击CreateProcess可见c:\sr350\sr350buff.exe启动。关掉sr350buff.exe进程,可见sr350buff.exe自动再启动。
相关阅读 >>
Delphi 调用浏览文件夹 selectdirectory
更多相关阅读请进入《Delphi》频道 >>