Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как завершить процесс [D7, XP]

ppcumax © (2007-04-10 21:13:00)
Как завершить процесс(тот что в диспетчере задач) в Делфи?

DrPass (2007-04-11 00:01:00) [1]
Видишь, как хорошо, если умеешь пользоваться гуглями и яндексами

ppcumax (2007-04-10 23:04:00) [2]
проблема решена

function 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;
end;

(2007-04-10 22:40:00) [3]
Удалено модератором

ppcumax (2007-04-10 22:09:00) [4]
TerminateProcess('some.exe',0);

так не работает, можно пример

MsGuns (2007-04-10 21:57:00) [5]
Удалено модератором
Примечание: оффтоп

DrPass (2007-04-10 21:55:00) [6]
Ну почему? Можно, конечно. Функцией TerminateProcess. Просто этот вопрос уже откровенно задолбал...

ppcumax (2007-04-10 21:51:00) [7]
Удалено модератором
Примечание: оффтоп

MsGuns (2007-04-10 21:30:00) [8]
Удалено модератором
Примечание: оффтоп

DrPass (2007-04-10 21:18:00) [9]
Удалено модератором
Примечание: оффтоп

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »