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 调用相应程序打开网址

Delphi rgb 画出三角形

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi sysutils.comparestr、sysutils.comparetext - 字符串比较

Delphii控件的安装和卸载方法

Delphi xe mysql数据库操作类 mysqlhelper

Delphi tapplication大全

Delphi is 与 as 运算符举例

Delphi webservices传文件

Delphi richedit选中文字右键菜单的实现

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

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