获取进程列表路径

5月32020

作者：绿色风发布：2020-5-3 16:26 Sunday 分类：源码示例阅读：2633次评论：0条

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include &lt;Array.au3&gt;
#Include &lt;WinAPIEx.au3&gt;
$aList = ProcessList()
For $i = 1 To $aList[0][0]
        $aList[$i][1] = _ProcessGetLocation($aList[$i][1])
Next

_ArrayDisplay($aList, '_GetModuleFileNameEx')

Func _ProcessGetLocation($iPID)
    Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
    If $aProc[0] = 0 Then Return SetError(1, 0, '')
    Local $vStruct = DllStructCreate('int[1024]')
    DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
    Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
    If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '')
    Return $aReturn[3]
EndFunc

本文固定链接: http://www.jianyiit.com/post-317.html