| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как закрыть системный процесс типа process.exe

ilop ©   (2004-07-29 15:47:00) 

Добрый день! Как можно закрыть или хотя бы получить Хендл процесса если имеется его имя.

---

Sasha73   (2004-07-29 16:13:00) [1]

     Var
       hSnapShot, hSnapShotM           : THandle;
       hProc                           : HWnd;
       lppe                            : TProcessEntry32;

Begin
 hSnapShot:= CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 lppe.dwSize:= SizeOf(lppe);
 Process32First(hSnapShot, lppe);
 while Process32Next(hSnapShot, lppe) do
   Begin
     If CompareText(ExtractFileName(lppe.szExeFile),'process.exe')=0 then begin
       hProc:=OpenProcess(PROCESS_TERMINATE,false,lppe.Th32ProcessID);
       TerminateProcess(hProc,0);

После функции Process32First(hSnapShot, lppe) тоже лучше проверить lppe.szExeFile='process.exe'!
Так закрывается обычный процесс, а системный не знаю!

---

Наверх