Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 17
1

завершение процесов в delphi

20.01.2013, 20:53. Показов 895. Ответов 6
Метки нет (Все метки)

скажите пожалуйста данный код может вырубить касперского?


function TForm1.KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;

FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);

while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;

CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
killtask('winamp.exe');
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2013, 20:53
Ответы с готовыми решениями:

Завершение процессов средствами Delphi!?
Вот фун-я завершения процесса (работает): function KillTask(ExeFileName:String):integer; const...

завершение создания проекта в Delphi
Всем доброго времени суток. Написал свою прогу на Delphi теперь хочу узнать как создаётся...

Синхронизация процесов
Привет всем ... Помогите пожалуйста, я в QT недавно .... немного непривычно после С ... Думал...

диспетчер процесов
у меня не открывается диспетчер задач не какой реакции при нажатии ctrl+alt+delete а запускаю ...

6
895 / 342 / 65
Регистрация: 11.02.2012
Сообщений: 1,502
20.01.2013, 20:55 2

Не по теме:

Попахивает вредоносным ПО..



А ты попробуй.
0
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 17
20.01.2013, 21:02  [ТС] 3
ахаха)
яб попробывал только у меня антивирусов вобще нету!
ну так что ктонить знает?
0
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
20.01.2013, 21:19 4
Касперского может вырубить только сам Касперский.
0
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 17
20.01.2013, 21:26  [ТС] 5
да не скажи у меня както был вирус на компе я включал косперского а он через се 5 вырубался!
0
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
20.01.2013, 21:41 6
Цитата Сообщение от олег1234 Посмотреть сообщение
да не скажи у меня както был вирус на компе я включал косперского а он через се 5 вырубался!
Его надо ставить до того, как вирусы появились. После уже пофигу на любой антивирус.
0
HanDi
20.01.2013, 21:42     завершение процесов в delphi
  #7

Не по теме:

Цитата Сообщение от олег1234 Посмотреть сообщение
ахаха)
как смешно.

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2013, 21:42

Помощь в написании контрольных, курсовых и дипломных работ здесь.

автоматизация бизнес процесов
Доброе время суток, подскажите чем автоматизировать такие бизнес процессы: пользователь заполняет...

автоматизация бизнес процесов
Доброе время суток, подскажите чем автоматизировать такие бизнес процессы: пользователь заполняет...

Создания итерационных процесов
Создайте блок схему к этому примеру...

Програмирование физически процесов
Задача о теле брошенном под углом к горизонту дан угол альфа начальная скорость и сопротивление...

Програмирование регулярних цеклических процесов!!!
Програмирование регулярних цеклических процесов!!! Добавлено через 4 минуты 4. Вычислить ...

Простой диспетчер процесов(задач)
Всем привет. Нужен диспетчер процессов, который запускает процессы(переложения), закрывает и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.