Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

Слежение за процессами   Найти похожие ветки 

← →
Максим   (2005-10-30 14:08) [0]

Как отследить запуск каких-либо процессов? Можно подробный пример?

---

← →
programania ©   (2005-10-30 20:00) [1]


usees ...tlHelp32...

procedure Timer1Timer(Sender: TObject);
var
handler:thandle;
data:tagPROCESSENTRY32;
s:string;
begin
handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
if process32first(handler,data) then begin
 repeat
//Имя exe процесса в
   s:=data.szExeFile;
 until not process32next(handler,data);
end;
end;


---

← →
Максим   (2005-10-31 18:58) [2]

не работает

---

← →
Максим   (2005-10-31 19:05) [3]

виснет

---

← →
programania ©   (2005-10-31 20:55) [4]

У меня это работает в XP и 98
попробуйте недоделаный антивирус где это используется
http://programania.com/pc.zip      4кб
напишите какая windows и в какой строке виснет

---

← →
Digitman ©   (2005-11-01 08:51) [5]

> Максим


на wasm.ru есть статья с примером.

---

← →
Максим   (2005-11-01 15:50) [6]

Все заработало, спасибо :)

---

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

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх

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