Discussion :

[violent_ken]

Bonjour à tous !
J'ai une question : de quelle manière, simple, pourrais je procéder pour obtenir le path complet d'un processus (exemple : "c\windows\system32\explorer.exe") uniquement en fonction du PID du processus ?

En gros, je cherche une fonction de ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Function GetEntirePath(lPID as Long) as String
.......
End Function

et que le résultat de, par exemple, GetEntirePath(1542) soit, par exemple, "c:\windows\system32\lsass.exe"

On m'a déjà aguillé sur les API

-OpenProcess
-GetModuleFileName
-CloseHandle

mais je ne suis pas arrivé à ce que je voulais avec.

Auriez vous des idées ?
Merci beaucoup par avance.
@+

[Catbull]

Comment as-tu déclaré ces API? Comment les as-tu utilisées?

Sinon, il me semble que tu peux obtenir cette information via WMI. Je ne l'ai jamais fait. Fais une recherche sur le mot clé WMI. Peux-être trouveras tu une solution.

[malhivertman1]

On ta deja donné le réponse sur un autre site et tu la validé, pourquoi venir mettre ton post ici maintenant?

je cite " Parfait. Avec çà çà va marcher nickel"

ah ben on voit ça oui...

[violent_ken]

J'allais poster ici pour dire que j'avais mes pistes de réponses
J'ai juste à adapter le code que m'a gentillement donné l'autre personne.

J'ai posté sur deux sites dans un soucis de rapidité.
La transcription du code C donné sur l'autre site ne sera pas difficile, comme je l'ai affirmé....


Aucune importance, j'ai donc obtenu l'information que je cherchais, merci à vous.
@+

[violent_ken]

J'ai finalement terminé mon code : je le poste ici aussi, çà servira peut êre à quelqu'un un jour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Public Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Public Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = 1024
Private Const PROCESS_VM_READ = 16
 
 
Public Function GetPathFromPID(lPID As Long) As String
GetPathFromPID = vbNullString
Dim lHprcss As Long, lSize As Long, sResult As String, lReturn As Long
Dim lngModules(1 To 200) As Long
 
'création d'un buffer
sResult = Space$(512)
 
lHprcss = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lPID)    'get the hInstance application
If lHprcss = 0 Then Exit Function   'echec
lngReturn = EnumProcessModules(lHprcss, lngModules(1), 200, 0)
lSize = GetModuleFileNameExA(lHprcss, lReturn, sResult, 512)
 
CloseHandle lHprcss 'ferme le handle
GetPathFromPID = Left$(sResult, lSize)  'récupère le nom
 
End Function

@+