Chertenok.ru - все о программировании
Вход  |  Регистрация  |  Поиск 
Праздник
Завтра :

День славянской письменности и культуры


Пристрелить процесс


Новая тема  Ответить  Печать Предыдущая тема  Следующая тема
Автор Сообщение
Пол:Муж Dave
Модератор


Возраст: 36
Знак зодиака: Лев
Зарегистрирован: 08.08.2002
Сообщения: 1208
Откуда: Yaroslavl
СообщениеСр, 26-Фев-2003 16:36    Заголовок сообщения: Пристрелить процесс
Цитата

Win2000.
Господа ! У кого-нибудь есть нормальный, работающий пример, как завершить (естессно, принудительно) какой-нибудь процесс в Win2000, зная его имя (например notepad.exe) ?
Конфуз
А-то я что-то тут в ТАКИЕ дебри забрался, что аж вылезти не получается !

Thanks for all before ! :)

_________________
Не убегай от снайпера - умрешь уставшим !
В начало
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Пол:Муж 13-ый
Администратор


Возраст: 35
Знак зодиака: Близнецы
Зарегистрирован: 28.04.2002
Сообщения: 3551
Откуда: Москва
СообщениеСр, 26-Фев-2003 18:47 
Цитата

вот это не смотрел ? я правда не знаю будет ли работать под 2000м.

http://delphi.chertenok.ru/forum/my_download.php?tema=del&action=show&id=141

_________________


http://fotki.yandex.ru/users/vladimir13

С уважением, 13-ый Wink
В начало
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Пол:Муж Dave
Модератор


Возраст: 36
Знак зодиака: Лев
Зарегистрирован: 08.08.2002
Сообщения: 1208
Откуда: Yaroslavl
СообщениеПт, 28-Фев-2003 10:05 
Цитата

Гы ! :)
13-й, в 2000-х виндах все отлично работает !
"Пристреливает" по-снайперски !
И главное, в исходник все имплантируется (даже слово-то какое подобрал) тривиально !
Мне даже понравилось ! :)

_________________
Не убегай от снайпера - умрешь уставшим !
В начало
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Пол:Муж 13-ый
Администратор


Возраст: 35
Знак зодиака: Близнецы
Зарегистрирован: 28.04.2002
Сообщения: 3551
Откуда: Москва
СообщениеПт, 28-Фев-2003 12:27 
Цитата

мне тоже понравилась, хорошая библиотека !
_________________


http://fotki.yandex.ru/users/vladimir13

С уважением, 13-ый Wink
В начало
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
DrPass
Знающий :)
/Почетный Модератор/


Возраст: 31
Знак зодиака: Лев
Зарегистрирован: 02.05.2002
Сообщения: 5709
Откуда: Донецк
СообщениеВс, 02-Мар-2003 12:36 
Цитата

Вот универсальный вариант поиска процесса по имени. Он будет работать не только в XP/2000, но и в NT

Код:

  ph:THandle;
  mh:hmodule;
  procs:array[0..$fff] of dword;
  count, cm:cardinal;
  i:integer;
  mn:array[0..max_path] of char;


    if not EnumProcesses(@procs, sizeof(procs), count) then exit;
    for i := 0 to count div 4 - 1 do begin
      ph:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, procs[i]);
      if ph>0 then begin
        EnumProcessModules(ph, @mh, 4, cm);
        GetModuleFileNameEx(ph, mh, mn, sizeof(mn));
//здесь прибиваешь процесс, если mn - это то самое имя
        CloseHandle(ph);
      end;
    end;


Самый эффективный и интересный способ - это через функцию NTQuerySystemInformation. Но я по памяти его не вспомню. NTAPI - это интерфейс ядра операционки, и он совершенно недокументирован.

_________________
Да пребудет с вами Сила!
В начало
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Страница 1 из 1
Перейти:  
Новая тема  Ответить  Печать

Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете присоединять файлы в этом форуме
Вы можете скачивать файлы в этом форуме
хостинг от .masterhost 
Rambler's Top100