进程是否存在，代码有问题

风语如歌

存在多个问题
第一 ：“精易_进程信息列表”结构体定义错误
请参考：https://docs.microsoft.com/zh-cn/windows/win32/api/tlhelp32/ns-tlhelp32-processentry32
szExeFile[MAX_PATH]，MAX_PATH=260
第二：图中箭头处错误，标准做法是初始化为sizeof(PROCESSENTRY32)，那个链接有写


第三：Process32First和Process32Next返回的是BOOL类型，而不是进程句柄，实际上精易的实现也没有啥毛病


下面给出我自己的实现。

  

子程序名	返回值类型	公开	备 注
进程是否存在	逻辑型		判断指定进程是否存在(此判断与进程其它信息无关联)(存在返回真，不存在或失败返回假)
参数名	类 型	参考	可空	数组	备 注
进程名	文本型				欲检测的进程名
是否区分大小写	逻辑型				默认为不区分,真=区分

变量名	类 型	静态	数组	备 注
pe	PROCESSENTRY32
hSnapshot	整数型

' dwFlags ＝ 位或 (#TH32CS_SNAPHEAPLIST, #TH32CS_SNAPPROCESS, #TH32CS_SNAPTHREAD, #TH32CS_SNAPMODULE)
hSnapshot ＝ CreateToolhelp32Snapshot (15, 0)
如果真 (hSnapshot ＝ 0)
返回 (假)
pe.dwSize ＝ 296
如果真 (Process32First (hSnapshot, pe) ＝ 假)
CloseHandle (hSnapshot)
返回 (假)

循环判断首 ()
如果真 (文本比较 (进程名, 到文本 (pe.szExeFile), 是否区分大小写) ＝ 0)
CloseHandle (hSnapshot)
返回 (真)

循环判断尾 (Process32Next (hSnapshot, pe))
CloseHandle (hSnapshot)
返回 (假)

.版本 2<br /> <br /> .子程序 进程是否存在, 逻辑型, , 判断指定进程是否存在(此判断与进程其它信息无关联)(存在返回真，不存在或失败返回假)<br /> .参数 进程名, 文本型, , 欲检测的进程名<br /> .参数 是否区分大小写, 逻辑型, 可空, 默认为不区分,真=区分<br /> .局部变量 pe, PROCESSENTRY32<br /> .局部变量 hSnapshot, 整数型<br /> <br /> ' dwFlags ＝ 位或 (#TH32CS_SNAPHEAPLIST, #TH32CS_SNAPPROCESS, #TH32CS_SNAPTHREAD, #TH32CS_SNAPMODULE)<br /> hSnapshot ＝ CreateToolhelp32Snapshot (15, 0)<br /> .如果真 (hSnapshot ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> pe.dwSize ＝ 296<br /> <br /> .如果真 (Process32First (hSnapshot, pe) ＝ 假)<br />     CloseHandle (hSnapshot)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .循环判断首 ()<br />     .如果真 (文本比较 (进程名, 到文本 (pe.szExeFile), 是否区分大小写) ＝ 0)<br />         CloseHandle (hSnapshot)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .循环判断尾 (Process32Next (hSnapshot, pe))<br /> <br /> CloseHandle (hSnapshot)<br /> 返回 (假)

项目部004

嗯！结构确实有点问题，下期版本修复这个问题，感谢反馈！