bonjour,
pour avoir la liste des programmes lancés et pouvoir en "killer" un, j'utilise la fonction:
mais des que je compile, l'antivirus nod32 detecte un virus..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 function programme_lancee(nom:string):boolean; var proc : tprocessentry32; prh : thandle; begin result := false; proc.dwSize:=sizeof(proc); prh:=createtoolhelp32snapshot(TH32CS_SNAPALL,0); process32first(prh,proc); if sametext(extractfilename(proc.szExeFile),nom) then result := true; while process32next(prh,proc) do if sametext(extractfilename(proc.szExeFile),nom) then result := true; end;
juste l'access a createtoolhelp32snapshot le declenche ...
sur le net, j'ai vu qu'il fallait vérifier le fichier "SysConst.dcu" voir si la date de modif a changé, mais rien ..
une idée ?
merci
exyacc
Partager