通过软件进程取路径

hp ＝ OpenProcess (位异或 (#PROCESS_QUERY_INFORMATION, #PROCESS_VM_READ), 0, pid)
.如果真 (hp ＝ 0)
返回 (“打开进程失败”)
.如果真结束
GetProcessImageFileNameA (hp, name, 260)
.计次循环首 (26, i)
pan ＝ 字符 (64 ＋ i) ＋ “:”
QueryDosDevice (pan, Dpan, 250)
.如果真 (寻找文本 (name, Dpan, , 假) ≠ -1)
name ＝ 子文本替换 (name, Dpan, pan, , , 真)
返回 (name)
.如果真结束

.计次循环尾 ()