Попробуй поставить в код метода _work_doKill EnumProcess отладчик и посмотреть, что выдаст при попытке уничтожить процесс
procedure ThiEnumProcess._work_doKill;
var
proc: THandle;
begin
SetDebugPrivilege(DebugPrivilege);
proc := OpenProcess(PROCESS_TERMINATE,true,procEntry.th32ProcessID);
TerminateProcess(proc, 1);
_debug;
CloseHandle(proc);
end;
Поиск
Друзья
Администрация