Connaitre le nom d'executable d'une application qui tourne [Résolu]
l0st3d
206
Messages postés
jeudi 19 décembre 2002Date d'inscription
13 novembre 2009
Dernière intervention
-
20 mai 2004 à 00:56 - Dernière réponse :
l0st3d
206
Messages postés
jeudi 19 décembre 2002Date d'inscription
13 novembre 2009
Dernière intervention
- 6 févr. 2005 à 07:50
- Connaitre le nom d'executable d'une application qui tourne
- Comment Faire Pour Trouver le nom du executable Mais Pas Avec Application.exenam (Résolu) » Forum - Delphi / Pascal
- Probleme avec l'exécutable de l'application (Résolu) » Forum - Delphi / Pascal
- Problems d'installation de l'executable de mon application sur autre ordinateur (Résolu) » Forum - Visual Basic 6
- Générer un executable pour une application délphi » Forum - Delphi / Pascal
- Comment céer un exécutable d'une application delphi » Forum - Delphi / Pascal
2 réponses
Meilleure réponse
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 69 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.