Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверка чужого процесса на зависание, Как проверить не висит ли чужой процесс? 
V
    Опции темы
ЧеловекБорща
Дата 17.12.2010, 20:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Всем доброго времени!

Вопрос:
Как в своей программе проверить не висит ли чужая программа. 

Допустим хочу сделать так:
Идёт 3 проверки, и если все 3 проверки неудачны значит процесс висит. 
Как такое сделать? 
PM MAIL   Вверх
Qu1nt
Дата 17.12.2010, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50
Код

function IsHungAppWindow(Handle: THandle): Boolean;
type
  TIsHungAppWindow = function(Handle: THandle): Boolean; stdcall;
var
  IsHungAppWindow: TIsHungAppWindow;
begin
  Result := False;
  IsHungAppWindow := GetProcAddress(GetModuleHandle('user32.dll'), 'IsHungAppWindow');
  if Assigned(IsHungAppWindow) then
    Result := IsHungAppWindow(Handle);
end;
PM MAIL   Вверх
ЧеловекБорща
Дата 18.12.2010, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Но у меня имеется только PID чужого процесса, как выдрать Thandle? 
PM MAIL   Вверх
Qu1nt
Дата 18.12.2010, 02:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50
Как получаешь PID?
PM MAIL   Вверх
ЧеловекБорща
Дата 18.12.2010, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Поток TThread зпускает другую программу и возвращает мне PID запущенного процесса. 
TprocessInformation.ProcessId
PM MAIL   Вверх
Qu1nt
Дата 18.12.2010, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50
Попробуй так:
Код

function GetHandle(ProcessId: THandle): THandle;
var
  Handle: THandle;
begin
  Result := GetTopWindow(0);
  while Result > 0 do
  begin
    GetWindowThreadProcessId(Result, Handle);
    if (Handle = ProcessId) and (GetParent(Result) = 0) then
      Break;
    Result := GetNextWindow(Result, GW_HWNDNEXT);
  end;
end;
PM MAIL   Вверх
Riply
Дата 21.12.2010, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 21
Всего: 32
Цитата(ЧеловекБорща @  18.12.2010,  00:31 Найти цитируемый пост)
Но у меня имеется только PID чужого процесса, как выдрать Thandle?  


Цитата(Qu1nt @  18.12.2010,  02:18 Найти цитируемый пост)
Как получаешь PID? 


Цитата(ЧеловекБорща @  18.12.2010,  11:26 Найти цитируемый пост)
Поток TThread зпускает другую программу и возвращает мне PID запущенного процесса. 
TprocessInformation.ProcessId 


Эмн...
А почему бы сразу не использовать TProcessInformation.hProcess ?  smile 


Это сообщение отредактировал(а) Riply - 21.12.2010, 11:20


--------------------
Решение задач под заказ
PM MAIL   Вверх
Qu1nt
Дата 21.12.2010, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50
А как по hProcess получить Handle главного окна?
PM MAIL   Вверх
Riply
Дата 23.12.2010, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 21
Всего: 32
Цитата(Qu1nt @  21.12.2010,  14:14 Найти цитируемый пост)
А как по hProcess получить Handle главного окна? 

Sorry
Из фразы
Цитата(ЧеловекБорща @  18.12.2010,  00:31 Найти цитируемый пост)
Но у меня имеется только PID чужого процесса, как выдрать Thandle?
неверно поняла какой HANDLE "выдирается"


Это сообщение отредактировал(а) Riply - 23.12.2010, 15:02


--------------------
Решение задач под заказ
PM MAIL   Вверх
ЧеловекБорща
Дата 23.12.2010, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Все работает , благодарен всем отписавшимся.

Это сообщение отредактировал(а) ЧеловекБорща - 24.12.2010, 23:41
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0794 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.