[IvoX]

В виртуалке часто определяет работающее приложение как зависшее
если пользую этот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function AppIsResponding(ClassName: string): Boolean; const   { Specifies the duration, in milliseconds, of the time-out period }   TIMEOUT = 200; 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;

в примере вообще 50 мс было