Delphi 以记事本程序为例监视进程运行状况.rar下载

Delphi 监视进程运行状况，示例以创建记事本进程向大家展示，创建进程、终止进程的情况，通过监视器可知道进程的状态。在判断进程状态时，以下代码起到了关键作用： 　　dwExitCode := 0; 　　fprocessExit := GetExitCodeProcess 　　 (PProcInfo.hProcess, dwExitCode); 　　if (fprocessExit and (dwExitCode <> STILL_ACTIVE)) then 　　begin 　　 Memo1.Lines.Add('NotePad进程终止'); 　　 CloseHandle(PProcInfo.hThread); 　　 CloseHandle(PProcInfo.hProcess); 　　 AllRunProcess; 　　end;