在Delphi中隐藏程序进程
2014-10-18 14:15
330 查看
在开发某些软件的时候,为了保护程序自身,就需要用到隐藏程序进程。以下通过实例来讲解隐藏程序进程的方法: 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中隐藏程序进程的方法[2]--纯DELPHI代码方式
- 在Delphi中隐藏程序进程
- 在Delphi中隐藏程序进程的方法[3]--异常死亡进程的自动复活法
- 在Delphi中隐藏程序进程的方法[1]--最简洁的方法
- 隐藏窗口小程序源码 (DELPHI 7)
- DELPHI中进程、窗口句柄、文件属性、程序运行状态
- DELPHI 跨进程获取其他程序的DBGrid内容
- delphi根据进程PID获取程序所在路径的函数
- c# 隐藏winform程序在任务管理器中进程
- 进程隐藏的Delphi代码(操作 PhysicalMemory
- 如何让Delphi的程序在SQL Server控制台中的进程信息显示应用程序的名字?
- C# 屏幕监控 自动截屏程序 主窗体隐藏,仅在进程中显示
- Delphi 中最小化窗体是隐藏并在任务揽中显示图表和进程名
- 一个rootkit程序--隐藏文件和进程
- Delphi 灵活运用接口(interface), 隐藏核心代码, 设计低耦合程序.
- Delphi隐藏进程
- 新Delphi隐藏当前进程
- 在delphi中如何判断一个文件正在被其它的程序或进程所调用?
- 隐藏目标进程的程序(驱动)
- 在Windows NT TaskManager(任务管理器)中隐藏程序(进程)