Вопросы программирования на Free Pascal, использования компилятора и утилит.
Модератор: Модераторы
Brainenjii » 23.08.2011 08:16:28
- Код: Выделить всё
Function TProcess.Terminate(AExitCode : Integer) : Boolean;
begin
Result:=False;
Result:=fpkill(Handle,SIGTERM)=0;
If Result then
begin
If Running then
Result:=fpkill(Handle,SIGKILL)=0;
end;
{ the fact that the signal has been sent does not
mean that the process has already handled the
signal -> wait instead of calling getexitstatus }
if Result then
WaitOnExit;
end;
-

Brainenjii
- энтузиаст
-
- Сообщения: 1351
- Зарегистрирован: 10.05.2007 00:04:46
MageSlayer » 23.08.2011 09:58:10
-
MageSlayer
- постоялец
-
- Сообщения: 216
- Зарегистрирован: 07.09.2006 12:30:44
Вернуться в Free Pascal Compiler
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9