Connaitre le chemin des processus : Sous 98 ilm est dans le nom du processus directement.
Sous XP :
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
' Enumére les modules d'un processus
Public Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef lpcbNeeded As Long) As Long
' Pour récupérer le chemin d'accès complet d'un processus
' Pour NT/2000/XP/2003... seulement
' Renvoie le nom du module "hModule" du processus "hProcess" (ouvert avec OpenProcess)
Public Declare Function GetModuleFileNameEx Lib "psapi.dll" Alias "GetModuleFileNameExA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFilename As String, ByVal nSize As Long) As Long
'accès en lecture de la mémoire
Public Const PROCESS_VM_READ As Long = (&H10)
'accès en collecte d'informations
Public Const PROCESS_QUERY_INFORMATION As Long = (&H400)
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
' Renvoie le chemin complet du processus
Public Function GetProcessFileName(ProcessID As Long) As String
On Error GoTo Fin
' Processus 0
If ProcessID = 0 Then
GetProcessFileName = "[System Process]"
' Processus 4
ElseIf ProcessID = 4 Then
GetProcessFileName = "System"
Else
' On cherche son chemin d'accès complet
Dim hProcess As Long 'handle du processus
Dim hModule As Long 'handle du module de l'exe
Dim Ret As Long 'résultat
' On demande un handle pour le processus
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0&, ProcessID)
' Si erreur (accès refusé)
If hProcess = 0 Then GoTo Fin
' On demande le handle du module de l'exe
EnumProcessModules hProcess, hModule, 4&, Ret
' On préformatte la chaine
GetProcessFileName = Space(260)
' On récupère son nom complet
GetModuleFileNameEx hProcess, hModule, GetProcessFileName, 260
' On ferme le handle ouvert
CloseHandle hProcess
' On retire le vbNUllChar de fin de chaine
GetProcessFileName = Left$(GetProcessFileName, InStr(GetProcessFileName, vbNullChar) - 1)
End If
Exit Function
Fin:
GetProcessFileName = "Inconnu"
End Function Pour la taille mémoire du processus :
http://www.vbfrance.com/code.aspx?ID=25836
J'espère que ça te suffira
Ciaò
MadMatt
http://matthieu.napoli.neuf.fr/wintools.html