|
Завершить все процессы пользователя
|
|
| CaMpEr | Дата: Понедельник, 08.07.2013, 00:39 | Сообщение # 1 |
Новичок
Зарегистрирован: 08.07.2013
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Здраствуйте очень прошу помочь. Можно ли както убить все процессы пользователя? Если да то помогите пожалуйста.
Через Delphi...
I love Coding
Сообщение отредактировал CaMpEr - Понедельник, 08.07.2013, 00:40 |
| |
| |
| dolphin | Дата: Понедельник, 08.07.2013, 11:26 | Сообщение # 2 |
Администратор
Сообщений: 906
Статус: Offline
| Цитата (CaMpEr) все процессы
А есть ли в этом какой-то смысл? Ведь скорее всего мы получим синий экран...
Список можно получить через CreateToolhelp32Snapshot, а потом циклом по списку применить TerminateProcess.
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
| dolphin | Дата: Среда, 17.07.2013, 18:00 | Сообщение # 3 |
|
Администратор
Сообщений: 906
Статус: Offline
| Хотя можно отсеивать системные как то так
Обновил код, проверил на 7ке и добавил завершение как таковое всех процессоров кроме системных
Все равно код немного неоптимизирован, но вполне рабочий, надеюсь кому-нибудь пригодится
Доступно только для пользователей
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Четверг, 18.07.2013, 14:14 |
| |
| |
| Sith | Дата: Среда, 25.09.2013, 17:55 | Сообщение # 4 |
|
Новичок
Зарегистрирован: 25.09.2013
Группа: Пользователи
Сообщений: 3
Статус: Offline
| а как сделать так чтобы это не убивало мою программу?
|
| |
| |
| Neo | Дата: Среда, 25.09.2013, 20:30 | Сообщение # 5 |
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| после repeat допиши:
Код
if GetCurentProcessId = Process.th32ProcessID then
continue;
|
| |
| |
| Sith | Дата: Четверг, 26.09.2013, 11:11 | Сообщение # 6 |
|
Новичок
Зарегистрирован: 25.09.2013
Группа: Пользователи
Сообщений: 3
Статус: Offline
| Цитата (Neo) после repeat допиши:
view plaincopy to clipboardprint?
if GetCurentProcessId = Process.th32ProcessID then
continue;
Выдаёт ошибку при запуске
Точка входа в процедуру GetCurentProcessID не найдена в библиотеке DLL Kernel32.dll
Вот функция: function GetCurentProcessID : Cardinal; stdcall; external 'kernel32.dll';
|
| |
| |
| Neo | Дата: Четверг, 26.09.2013, 16:07 | Сообщение # 7 |
|
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| Подключи модуль Windows,да и всё.
|
| |
| |
| Sith | Дата: Четверг, 26.09.2013, 18:42 | Сообщение # 8 |
|
Новичок
Зарегистрирован: 25.09.2013
Группа: Пользователи
Сообщений: 3
Статус: Offline
| Цитата (Neo) Подключи модуль Windows,да и всё.
в uses Windows было прописано,всё равно. 
|
| |
| |
| Neo | Дата: Пятница, 27.09.2013, 09:12 | Сообщение # 9 |
|
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| if GetCurrentProcessId = Process.th32ProcessID then
Continue;
|
| |
| |
| xXxSh@dowxXx | Дата: Воскресенье, 06.10.2013, 18:28 | Сообщение # 10 |
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
| Цитата Спасибо
Прошу удалить тему
Пожалуйста удалите тему!
Админы ПРОШУ УДАЛИТЬ ТЕМУ!!!!!
Не нужно так спамить, тема не удаляется по причине того что кому то может пригодиться данная информация и исходник, что бы не пришлось долго искать пускай лучше будет тут.
Сообщение отредактировал xXxSh@dowxXx - Воскресенье, 06.10.2013, 18:28 |
| |
| |
| Normalnyj | Дата: Суббота, 21.12.2013, 23:25 | Сообщение # 11 |
|
Был не раз
Зарегистрирован: 08.11.2013
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Дайте пожалуйста исходник если не сложно заранее спасибо.
|
| |
| |
