CMD启动程序获取当前PID

.子程序 fnProcessSnapshot, 整数型
.参数 ParentPid, 整数型, , Parent handle
.参数 Pid, 整数型
.参数 ProcessName, 文本型
.参数 lParam, 整数型
.局部变量 CommandLine, 文本型

.如果真 (ProcessName ＝ 指针到文本 (__get (lParam, 4)))
CommandLine ＝ ProcessGetCommandLine (Pid, 假)
.如果真 (寻找文本 (ProcessGetCommandLine (Pid, 假), 指针到文本 (__get (lParam, 0)), , 假) ≠ -1)
__set (lParam, 8, Pid)
返回 (1)