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 操作sql 插入一万条数据 三种方式速度测试

Delphi获取dos命令行输出函数 运行cmd命令并获取结果

Delphi thread.queue与synchronize的区别

Delphi的webbrowser改造，对网页中alter等对话框的改造方法

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

Delphi 设计一个有渐变色的标签

delph i判断ip地址是否正确

Delphi 循环 low high 用法

Delphi 关闭android安卓程序

Delphi 取得某一天所在的星期一及星期天

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

转载请注明出处：木庄网络博客 » Delphi 检测应用程序是否已停止响应