Delphi 检测应用程序是否已停止响应


本文整理自网络,侵删。

 
procedure TForm2.Button1Click(Sender: TObject);
var
  H : THandle;
  lngReturnValue : longint;
  DWResult : DWORD;
begin
  H := FindWindow('Notepad', nil);
  if H > 0 then
  begin
    lngReturnValue := SendMessageTimeout(
      H, WM_NULL, 0, 0, SMTO_ABORTIFHUNG And SMTO_BLOCK,
      1000, DWResult
    );//delphitop.com
    if lngReturnValue > 0 then
      ShowMessage('响应')
    else
      ShowMessage('Not 响应');
  end
  else
    ShowMessage('Application not found');
end;

相关阅读 >>

Delphi listview1 图标不齐,错乱解决方法

Delphi 取得开机时间 开机时间总长度(可精确到秒,分钟等)

Delphi android 平台加载文件

Delphi runasadmin 运行程序并申请管理员权限

Delphi 中 findwindow 和 findwindowex 的语法和用法

Delphi 怎么将一个流转换成字符串?或者将字符串转出一个流

Delphi 2009 中 tstrings 与 tstream 的增强

Delphi的tservice的windows�入桌面切�q

Delphi 建立最小的应用程序

Delphi服务器端如何防止ddos

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...