Дата: Понедельник, 08.07.2013, 11:26 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Цитата (CaMpEr)
все процессы
А есть ли в этом какой-то смысл? Ведь скорее всего мы получим синий экран... Список можно получить через CreateToolhelp32Snapshot, а потом циклом по списку применить TerminateProcess. Система: Windows 10 x64, Kali Linux Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель Я не вредитель, я всего лишь теоретик
Хотя можно отсеивать системные как то так Обновил код, проверил на 7ке и добавил завершение как таковое всех процессоров кроме системных Все равно код немного неоптимизирован, но вполне рабочий, надеюсь кому-нибудь пригодится Доступно только для пользователей Система: Windows 10 x64, Kali Linux Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Четверг, 18.07.2013, 14:14
после repeat допиши: view plaincopy to clipboardprint? if GetCurentProcessId = Process.th32ProcessID then continue;
Выдаёт ошибку при запуске Точка входа в процедуру GetCurentProcessID не найдена в библиотеке DLL Kernel32.dll Вот функция: function GetCurentProcessID : Cardinal; stdcall; external 'kernel32.dll';
Не нужно так спамить, тема не удаляется по причине того что кому то может пригодиться данная информация и исходник, что бы не пришлось долго искать пускай лучше будет тут.
Сообщение отредактировал xXxSh@dowxXx - Воскресенье, 06.10.2013, 18:28