Question

易语言检测程序的父进程是不是explorer

Answer 1

.版本 2

.子程序 _按钮1_被单击
.局部变量 本进程ID, 整数型
.局部变量 比较进程ID, 整数型

本进程ID ＝ 取进程ID (取执行文件名 ())
比较进程ID ＝ 取进程ID (“explorer.exe”)
.判断开始 (本进程ID ＝ 比较进程ID)
信息框 (“相同”, 0, )
.默认
信息框 (“不相同”, #错误图标, )
.版本 2

.子程序 取进程ID, 整数型, 公开, 取指定进程的进程ID(返回第一个进程ID,失败返回0)
.参数 进程名, 文本型, , 区分大小写
.局部变量 临时信息, 进程信息_
.局部变量 进程句柄, 整数型
.局部变量 进程快照, 整数型

进程快照 ＝ _创建快照 (2, 0)
.如果真 (进程快照 ≠ 0)
临时信息.dwSize ＝ 296
进程句柄 ＝ _第一个 (进程快照, 临时信息)
.判断循环首 (进程句柄 ≠ 0)
.如果真 (StrCmpNI_1 (进程名, 临时信息.进程名称, _取文本长度 (进程名)) ＝ 0) ' 比较进程名
_关闭对象 (进程快照)
返回 (临时信息.进程ID)
.如果真结束
进程句柄 ＝ _下一个 (进程快照, 临时信息)
.判断循环尾 ()
_关闭对象 (进程快照)
.如果真结束
返回 (0)