
11.01.2010, 15:07
|
|
Участник форума
Регистрация: 06.11.2008
Сообщений: 208
С нами:
9216248
Репутация:
9
|
|
Сообщение от Linkus
ещё один забаненный Гуглом
Код:
bool KillProcByPid(DWORD pid)
{
DWORD ExitCode;
HANDLE hp;
bool ret = true;
if(pid)
{
hp = OpenProcess(PROCESS_ALL_ACCESS, true, pid);
if (hp)
{
GetExitCodeProcess(hp, &ExitCode);
ret = TerminateProcess(hp, ExitCode);
}
else
{
return false;
}
}
else
{
return false;
}
CloseHandle(hp);
return ret;
}
не тестил но в принципе работать должно 
Вы конечно ОЧЕНЬ любезны уважаемый, но я просил помощи на Delphi, а не на Си. Если кто-то может помогите пожалуйста переделать данный код на Delphi-йский.
Заранее благодарен.
|
|
|