VPF::Как убить зависший процесс? - Форум программистов

bmmshayan

Дата 18.12.2009, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Разрабатываю программу которая следит за приложением в отсутствие человека.
Программа иногда зависает, т.е. процессор на максимум и/или просто зависший процесс который нужно вручную убивать из диспетчера задач.

Имя процесса известно (т.е. суть не в переборе всех процессов)!

Как средствами Delphi это сделать?
Заранее спасибо.

Это сообщение отредактировал(а) bmmshayan - 18.12.2009, 09:48

Данкинг

Дата 18.12.2009, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Код



function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;

  FSnapshotHandle := CreateToolhelp32Snapshot
  (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);

  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
      PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;

  CloseHandle(FSnapshotHandle);
end;

--------------------

There's nothing left but silent epitaphs.

bmmshayan

Дата 18.12.2009, 11:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Данкинг

Большое спасибо за функцию которая убивает процесс.
Но вот вопрос: Как мне узнать что процесс завис?
И убьет ли эта функция именно зависший не отвечающий процесс?

Это сообщение отредактировал(а) bmmshayan - 18.12.2009, 11:37

Данкинг

Дата 18.12.2009, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(bmmshayan @ 18.12.2009, 11:30

)

Как мне узнать что процесс завис?

Не знаю, но боюсь, что на 100% ты всё равно это не определишь, поскольку часто бывает, что винда пишет "не отвечает", но программа на самом деле работает. smile

Добавлено через 26 секунд

Цитата(bmmshayan @ 18.12.2009, 11:30

)

И убьет ли эта функция именно зависший не отвечающий процесс?

Да, должна.

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 18.12.2009, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Цитата(bmmshayan @ 18.12.2009, 11:30

)

Как мне узнать что процесс завис?

ИМХО либо из другого приложения, либо в своем запустить отдельный поток на отслеживание зависания.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

bmmshayan

Дата 18.12.2009, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Данкинг
Ну и на том спасибо! smile

Keeper89
Да в том то и дело что я слежу за другим приложением. Но не знаю как определять "зависание"...

Это сообщение отредактировал(а) bmmshayan - 18.12.2009, 15:04

Демо

Дата 18.12.2009, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 6
Всего: 50

Цитата(bmmshayan @ 18.12.2009, 15:01

)

Да в том то и дело что я слежу за другим приложением. Но не знаю как определять "зависание"...

Если тебе известна логика работы приложения, то можно ослеживать время его активности и дополнительно проверять, отвечает ли оно на SendMessage (GetProcessTimes + SendMessage).

--------------------

bmmshayan

Дата 18.12.2009, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Ну а хотябы как узнать % нагрузки программой на процессор момент проверки?

Демо

Дата 18.12.2009, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 6
Всего: 50

Цитата(bmmshayan @ 18.12.2009, 16:44

)

Ну а хотябы как узнать % нагрузки программой на процессор момент проверки?

Для этого тебе весь список процессов анализировать нужно.

Это сообщение отредактировал(а) Демо - 18.12.2009, 18:09

--------------------

dvamaster

Дата 22.12.2009, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 2
Всего: 10

EndTask

в хелпе есть, а в модулях не декларирована

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Rennigth

Дата 22.12.2009, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Цитата(bmmshayan @ 18.12.2009, 16:44

)

Ну а хотябы как узнать % нагрузки программой на процессор момент проверки?

А если процесс завис на бесконечном цикле? smile

Демо прав, надо организовывать какой-нить KeepAlive.

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »