Показать сообщение отдельно

  #6  
Старый 11.01.2010, 15:07
F&D
Участник форума
Регистрация: 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-йский.

Заранее благодарен.
 
Ответить с цитированием