几个delphi写的进程相关的函数，最近开发一个服务程序收集编写

delphi写的进程相关的函数，最近开发一个服务程序收集编写 增加了注释 在win7 32位64位，xp测试通过。 请朋友们测试急需完善