进程死亡的自动复活

前两天看了Delphi版面精华区中的“进程死亡的自动复活“一文，觉得作者的思路很不错，利用api来监视进程的活动，当被销毁时就自动再创建进程。仔细推敲之后，发觉其实用vb也是可以做到的。于是花了半天的时间写了以下的程序，实现了使用WaitForSingleObjectAPI来监视被创建的进程的活动，一旦返回除time out 之外的消息就自动创建新的进程。以下为其实现代码。在win2000 server + vb 6.0下通过。