如何判断进程有无响应的方法(经验共享),我的答案!(0分)

function IsBusy(ProcessId: Integer): Integer;
var
Ph: THandle;
begin
Ph := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessId);
if Ph <> 0 then
begin
if WaitForInputIdle(Ph, 10) = WAIT_TIMEOUT then
Result := 1
else
Result := 0;
CloseHandle(Ph);
end
else Result := -1;
end;

进程无响应是这个意思吗？

不再响应新的Windows消息，就是无响应
如果在指定的时间里等不到消息输入空闲，
那么该程序肯定在忙，
你可以把时间改的再长一点，5秒钟没有空闲，
就认为程序死了

接受答案了.