vb obtiene la ruta del proceso (pid conocido)

Función privada GetProcessPath(PID siempre y cuando) como cadena

En caso de error, Ir a Z

Atenuar cbNeeded mientras

Atenuar szBuf(1 a 250) mientras

p>

Atenuar Ret mientras

Atenuar szPathName como cadena

Atenuar nSize mientras

Atenuar hProcess mientras

hProcess = OpenProcess(&H400 Or &.H10, 0, PID) 'Esta es la forma correcta de abrir un proceso^-^

If hProcess <.H10, 0, PID) 'Esta es la forma correcta de abrir un proceso^ -^

Si hProcess <> 0 Entonces

Ret = EnumProcessModules(hProcess, szBuf(1), 250, cbNeeded)

Si Ret & lt;> ; 0 entonces

szPathName = Space(260)

nSize = 500

Ret = GetModuleFileNameExA(hProcess, szBuf(1), szPathName, nSize)

GetProcessPath = Left(szPathName,

End If

Ret = CloseHandle(hProcess)

Si GetProcessPath = "" Entonces

GetProcessPath = "--"

Finalizar si

Salir de la función

Z:

Finalizar la función