Вопросы программирования на Free Pascal, использования компилятора и утилит.
Модератор: Модераторы
uchar » 02.03.2017 14:43:02
Приветствую.
Использую такой подход:
- Код: Выделить всё
function IsProcessRunning(ProcessID: SizeUInt): Boolean;
const
ESRCH = 3; // No such process
begin
Result := not ((FpKill(ProcessId, 0) = -1) and (fpGetErrNo = ESRCH));
end;
Для понимания см.:
http://man7.org/linux/man-pages/man2/kill.2.html
-
uchar
- незнакомец
-
- Сообщения: 5
- Зарегистрирован: 10.03.2011 18:46:12
Вернуться в Free Pascal Compiler
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 71