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

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

Просмотреть запущенные процессы, найти нужный и убить его [D7, WinXP]

petvv ©   (2004-10-15 08:21:00) 

Доброго времени суток !

Проблема такая ! В памяти весит процесс, который смотрит за некоторыми файлами. При запуске своего приложения мне
необходимо найти и убить этот процесс, чтобы поколупать эти
файлы. Как это проще реализовать !

---

VMcL   (2004-10-15 12:24:00) [1]

>> =SOFT=  (15.10.04 10:32) [2]

const
 PROCESS_TERMINATE = $0001;

Windows.pas отменили?

 ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);
end;

1. С какого бадуна "4"? Ну да ладно, это не так важно.
2. CloseHandle() г-н Пушкин будет делать?

---

=SOFT=   (2004-10-15 10:32:00) [2]


procedure KillProcess(Classname: string; WindowTitle: string);
const
 PROCESS_TERMINATE = $0001;
var
 ProcessHandle : THandle;
 ProcessID: Integer;
 TheWindow : HWND;
begin
 TheWindow := FindWindow(Classname, WindowTitle);
 GetWindowThreadProcessID(TheWindow, @ProcessID);
 ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
 TerminateProcess(ProcessHandle,4);
end;


---

Внук   (2004-10-15 10:06:00) [3]

"В памяти весит процесс..."
Интересно, сколько "весит" :)

---

Наверх