通过进程名PID获取文件路径

MsgBox % GetProcessFullPath("QQ.exe")

GetProcessFullPath(ProcessNameOrPid) {
  Process, Exist, %ProcessNameOrPid%
  if ProcessId :=ErrorLevel {
    hProcess := DllCall("Kernel32.dll\OpenProcess", "UInt", 0x0400|0x0010, "UInt", 0, "UInt", ProcessId)
    FileNameSize := VarSetCapacity(ModuleFileName, (260 + 1) * 2, 0) / 2
    if !(DllCall("Psapi.dll\GetModuleFileNameExW", "Ptr", hProcess, "Ptr", 0, "Str", ModuleFileName, "UInt", FileNameSize))
      if !(DllCall("Kernel32.dll\K32GetModuleFileNameExW", "Ptr", hProcess, "Ptr", 0, "Str", ModuleFileName, "UInt", FileNameSize))
        DllCall("Kernel32.dll\QueryFullProcessImageNameW", "Ptr", hProcess, "UInt", 1, "Str", ModuleFileName, "UIntP", FileNameSize)
    Return ModuleFileName, DllCall("Kernel32.dll\CloseHandle", "Ptr", hProcess)
  }
}