如何判断某个程序是否卡住

2010-07-20 11:36:04 304 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DC算法竞赛——北京PM2.5浓度回归分析北京PM2.5浓度回归分析比赛结果（118/1150）一. 概述 1、项目来源：https://www.dcjingsai.com/static_page/cmpList.html 2、给定数据字段如下： 3、使用方法：回归算法 4、目的：预测北京pm2.5值，使平均预测误差越小越好。二、分析过程 setwd("E:/R数据源") #读入数据 data <- read.csv('p... 阅读详情

我想问下我有没有什么办法用一个程序去判断另一个程序运行是否卡住了？
就是半天没反应，有可能一会又反应过来了

我是模拟操作用的，有时候那个程序会出现卡住半天，有可能就死了，有可能又活过来了？如何去判断？

...全文

小龙虾 OpenClaw 安装全攻略：本地部署 AI 智能体一步到位 OpenClaw（昵称小龙虾）是一款 MIT 开源协议的本地优先 AI 智能体执行网关，支持多平台接入、本地部署，能实现自然语言驱动的设备自动化操作，区别于纯对话 AI，可直接操控系统执行实际任务，数据全程本地存储更安全。本文带来 2026 最新版 OpenClaw 安装教程，适配 Windows/macOS/Linux 全系统，新手也能一键搞定。阅读详情

gyj5240

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

bt_zhj 2010-07-20

打赏
举报

socket

sanguomi 2010-07-20

打赏
举报

注入一个DLL，定时和你的程序通讯

zhaodog 2010-07-20

打赏
举报

进程通信方法很多呀
发消息
管道
socket
共享内存
等等

gyk120 2010-07-20

打赏
举报

SendMessageTimeout
还有一种办法。
function IsAppRespondig9X(dwThreadId: DWORD): Boolean;
type
TIsHungThread = function(dwThreadId: DWORD): BOOL; stdcall;
var
hUser32: THandle;
IsHungThread: TIsHungThread;
begin
Result := True;
hUser32 := GetModuleHandle('user32.dll');
if (hUser32 > 0) then
begin
@IsHungThread := GetProcAddress(hUser32, 'IsHungThread');
if Assigned(IsHungThread) then
begin
Result := not IsHungThread(dwThreadId);
end;
end;
end;

function IsAppRespondigNT(wnd: HWND): Boolean;
type
TIsHungAppWindow = function(wnd:hWnd): BOOL; stdcall;
var
hUser32: THandle;
IsHungAppWindow: TIsHungAppWindow;
begin
Result := True;
hUser32 := GetModuleHandle('user32.dll');
if (hUser32 > 0) then
begin
@IsHungAppWindow := GetProcAddress(hUser32, 'IsHungAppWindow');
if Assigned(IsHungAppWindow) then
begin
Result := not IsHungAppWindow(wnd);
end;
end;
end;

function IsAppRespondig(Wnd: HWND): Boolean;
begin
if not IsWindow(Wnd) then
begin
ShowMessage('Incorrect window handle!');
Exit;
end;
if Win32Platform = VER_PLATFORM_WIN32_NT then
Result := IsAppRespondigNT(wnd)
else
Result := IsAppRespondig9X(GetWindowThreadProcessId(Wnd,nil));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Res: DWORD;
h: HWND;
begin
h := FindWindow(nil, 'notepad');
if h > 0 then
begin
if IsAppRespondig(h) then
ShowMessage('notepad 有响应')
else
ShowMessage('notepad 无响应');
end
else
ShowMessage('未打开 notepad');
end;

如何判断某个程序是否卡住

相关推荐