Скачать: CL | DM;

Как завершить процесс   Найти похожие ветки 

← →
ppcumax ©   (2007-04-10 21:13) [0]

Как завершить процесс(тот что в диспетчере задач) в Делфи?

---

← →
DrPass ©   (2007-04-10 21:18) [1]

Удалено модератором
Примечание: оффтоп

---

← →
MsGuns ©   (2007-04-10 21:30) [2]

Удалено модератором
Примечание: оффтоп

---

← →
ppcumax ©   (2007-04-10 21:51) [3]

Удалено модератором
Примечание: оффтоп

---

← →
DrPass ©   (2007-04-10 21:55) [4]

Ну почему? Можно, конечно. Функцией TerminateProcess. Просто этот вопрос уже откровенно задолбал...

---

← →
MsGuns ©   (2007-04-10 21:57) [5]

Удалено модератором
Примечание: оффтоп

---

← →
ppcumax ©   (2007-04-10 22:09) [6]

TerminateProcess("some.exe",0);

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

---

← →
имя   (2007-04-10 22:40) [7]

Удалено модератором

---

← →
ppcumax ©   (2007-04-10 23:04) [8]

проблема решена

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;

---

← →
DrPass ©   (2007-04-11 00:01) [9]

Видишь, как хорошо, если умеешь пользоваться гуглями и яндексами

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.032 c