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

Просмотреть запущенные процессы, найти нужный и убить его   Найти похожие ветки 

← →
petvv ©   (2004-10-15 08:21) [0]

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

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

---

← →
Внук ©   (2004-10-15 10:06) [1]

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

---

← →
=SOFT=   (2004-10-15 10:32) [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;


---

← →
VMcL ©   (2004-10-15 12:24) [3]

>>=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() г-н Пушкин будет делать?

---

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

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



Память: 0.45 MB
Время: 0.025 c