تشخیص هنگ شدن برنامه

[seyed_farid]

با سلام
چطور میشه در ویندوز 10 64 بیت فهمید که یک برنامه هنگ (Not Responding) کرده؟

[یوسف زالی]

سلام. بهش مسیج میدید اگر پاسخی نداد هنگ است.
فرض بر اینه که برنامه رو خودتون نوشته باشید و پاسخ مناسبی برای مسیج مزبور بدهید.

[seyed_farid]

ممنون از پاسختون

من میخوام هر برنامه‌ای رو بتونم کنترل کنم و محدود به برنامه‌های خودم نباشه.
یه کدهایی تو نت پیدا کردم ولی در ویندوز ۱۰ ۶۴بیت کار نکرد. دستور sendMessageTimeout

[seyed_farid]

من این کد رو دارم

function AppIsResponding(ClassName: string): Boolean;

const

  { Specifies the duration, in milliseconds, of the time-out period }

  TIMEOUT = 50;

var

  Res: DWORD;

  h: HWND;

begin

  h := FindWindow(PChar(ClassName), nil);

  if h <> 0 then

    Result := SendMessageTimeOut(H,

      WM_NULL,

      0,

      0,

      SMTO_NORMAL or SMTO_ABORTIFHUNG,

      TIMEOUT,

      Res) <> 0

  else

    ShowMessage(Format('%s not found!', [ClassName]));

end;

ولی نمیدونم چطور باید کلاس فایل exe رو پیدا کنم.

[seyed_farid]

اگه کسی در این زمینه میتونه راهنمایی کنه ممنون میشم.

[دلفــي]

// For Win9x/me

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;



// For Win NT/2000/XP

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 ('recorct window handle! ');

Exit;

End;

If win32platform = ver_platform_win32_nt then

  Result := isapprespondignt(WND)

Else

  Result := isapprespondig9x(getwindowthreadprocessid (WND, nil ));

End;



// Example: Check if word is hung/responding

procedure TForm1.Button1Click(Sender: TObject);

VaR

Res: DWORD;

H: hwnd;

Begin

// Find word by classname

H := findwindow (pchar('App'), nil );

If H <> 0 then

Begin

  If isapprespondig(h) then

    Showmessage ('App is responding! ')

  Else

    Showmessage ('App is not responding! ');

End

Else

    Showmessage ('App is not open! ');

End;