Connaitre le nom d'executable d'une application qui tourne [Résolu]
Signaler
l0st3d
l0st3d
- Messages postés
- 205
- Date d'inscription
- jeudi 19 décembre 2002
- Statut
- Membre
- Dernière intervention
- 13 novembre 2009
l0st3d
- Messages postés
- 205
- Date d'inscription
- jeudi 19 décembre 2002
- Statut
- Membre
- Dernière intervention
- 13 novembre 2009
A voir également:
- Getprocessimagefilename
- Comment Faire Pour Trouver le nom du executable Mais Pas Avec Application.exenam ✓ - Forum - Delphi / Pascal
- Affichage, dans la barre de titre, de la durée d'executer dee l'application - Codes sources - Visual Basic / VB.NET (Exécution)
- Problems d'installation de l'executable de mon application sur autre ordinateur ✓ - Forum - Visual Basic 6
- DLL peut continuer à s'executer sans l'application ? ✓ - Forum - VB.NET
- Probleme avec l'exécutable de l'application ✓ - Forum - Delphi / Pascal
2 réponses
l0st3d
- Messages postés
- 205
- Date d'inscription
- jeudi 19 décembre 2002
- Statut
- Membre
- Dernière intervention
- 13 novembre 2009
Jai trouver mon bonheur sur http://www.vbfrance.com/code.aspx?ID=7069
seulement en ajoutant l'API GetWindowThreadProcessId pour soutirer le pid relier au handle
voici le code
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Public Const MAX_PATH As Integer = 260
Public Const TH32CS_SNAPHEAPLIST = &H1
Public Const TH32CS_SNAPPROCESS = &H2
Public Const TH32CS_SNAPTHREAD = &H4
Public Const TH32CS_SNAPMODULE = &H8
Public Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Public Const TH32CS_INHERIT = &H80000000
Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Public Type aProc
aCount As Long
aProcess() As PROCESSENTRY32
End Type
Dim tmpProc As aProc
Public Function GetHandleExeName(Handle As Long) As String
Dim tProcName As String
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Dim tPID As Long, temp As Long
temp = GetWindowThreadProcessId(Handle, tPID)
'Debug.Print tPID & ":" & temp
' MsgBox temp
'Takes a snapshot of the processes
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
'set the length of our ProcessEntry-type
uProcess.dwSize = Len(uProcess)
'Retrieve information about the first process encountered in our system snapshot
uProcess.szExeFile = vbNullString
r = Process32First(hSnapShot, uProcess)
Do While r
If tPID = uProcess.th32ProcessID Then
'Debug.Print uProcess.szExeFile
GetHandleExeName = Trim(Replace(uProcess.szExeFile, Chr(0), ""))
Exit Function
End If
'Retrieve information about the next process recorded in our system snapshot
uProcess.szExeFile = vbNullString
r = Process32Next(hSnapShot, uProcess)
Loop
'close our snapshot handle
GetHandleExeName = "[Pas d'exécutable trouvé]"
CloseHandle hSnapShot
End Function
seulement en ajoutant l'API GetWindowThreadProcessId pour soutirer le pid relier au handle
voici le code
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Public Const MAX_PATH As Integer = 260
Public Const TH32CS_SNAPHEAPLIST = &H1
Public Const TH32CS_SNAPPROCESS = &H2
Public Const TH32CS_SNAPTHREAD = &H4
Public Const TH32CS_SNAPMODULE = &H8
Public Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Public Const TH32CS_INHERIT = &H80000000
Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Public Type aProc
aCount As Long
aProcess() As PROCESSENTRY32
End Type
Dim tmpProc As aProc
Public Function GetHandleExeName(Handle As Long) As String
Dim tProcName As String
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Dim tPID As Long, temp As Long
temp = GetWindowThreadProcessId(Handle, tPID)
'Debug.Print tPID & ":" & temp
' MsgBox temp
'Takes a snapshot of the processes
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
'set the length of our ProcessEntry-type
uProcess.dwSize = Len(uProcess)
'Retrieve information about the first process encountered in our system snapshot
uProcess.szExeFile = vbNullString
r = Process32First(hSnapShot, uProcess)
Do While r
If tPID = uProcess.th32ProcessID Then
'Debug.Print uProcess.szExeFile
GetHandleExeName = Trim(Replace(uProcess.szExeFile, Chr(0), ""))
Exit Function
End If
'Retrieve information about the next process recorded in our system snapshot
uProcess.szExeFile = vbNullString
r = Process32Next(hSnapShot, uProcess)
Loop
'close our snapshot handle
GetHandleExeName = "[Pas d'exécutable trouvé]"
CloseHandle hSnapShot
End Function
