Понедельник, 07.10.2024, 07:14 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Завершить все процессы пользователя
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 было прописано,всё равно. sad
 
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
Дайте пожалуйста исходник если не сложно заранее спасибо.
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz