【v2】遍历按路径查找进程

#Requires AutoHotkey v2.0

MsgBox FindProcessByExePath("C:\Windows\explorer.exe")

FindProcessByExePath(exePath, max := 300) {  ; By Tebayaki
  buf := Buffer(max * 4)
  DllCall("psapi\EnumProcesses", "ptr", buf, "uint", buf.Size, "uint*", 0)
  VarSetStrCapacity(&found, 261)
  while A_Index < max && pid := NumGet(buf, A_Index * 4, "uint") {
    if h := DllCall("OpenProcess", "uint", 0x410, "int", false, "uint", pid, "ptr") {
      DllCall("psapi\GetModuleFileNameExW", "ptr", h, "ptr", 0, "str", found, "uint", 261)
      DllCall("CloseHandle", "ptr", h)
      if found = exePath
        return pid
    }
  }
  return 0
}