开发一款保护程序检测进程假死，精准打开保护的程序

网上很多保护程序都收费，

有免费的，可以将一般程序改成windows服务，我没用，应该很强大

功能点：

1，首先要有能加入保护程序的功能

2，不断的轮询检测程序是否已经运行

3，不断的轮询检测程序是否假死

4，一些其他检测

 

将保护的程序存入文件列表

保护程序运行时加载文件列表，并加入表格中

然后运行程序，检测程序运行状态，并保存状态，

程序假死检测后，假死次数加1，超过假死次数，结束程序。

注意要点：

1，检测进程是否开启的函数，通过路径精准检测进程是否运行，

而不是进程名是否相同，因为进程名很可能相同，但是路径不同

function FindProcess(AFileName: string): boolean;
var
  hSnapshot: THandle;//用于获得进程列表
  lppe: TProcessEntry32;//用于查找进程
  Found: Boolean;//用于判断进程遍历是否完成
  filepath: string;
begin
  Result :=False;
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);//获得系统进程列表
  lppe.dwSize :=