通知,欢迎前往微信公众号搜索:麻木博客  QQ/微信搜索:麻木博客QQ/微信小程序


.版本 2 .子程序 GetProcessHandle, 整数型 .参数 lpProcessName, 文本型 .局部变量 hSnapShot, 整数型 .局部变量 dwRet, 整数型 .局部变量 prHandle, 整数型 .局部变量 pe32, PROCESSENTRY32 hSnapShot = CreateToolhelp32Snapshot (#TH32CS_SNAPALL, 0) .如果真 (hSnapShot = 0) 信息框 (“ITool.Club工具箱”, 0, ) 返回 (dwRet) .如果真结束 pe32.dwSize = 1024 prHandle = Process32First (hSnapShot, pe32) .判断循环首 (prHandle ≠ 0) .判断开始 (到文本 (pe32.szExeFile) = lpProcessName) dwRet = pe32.th32ProcessID 跳出循环 () .默认 prHandle = Process32Next (hSnapShot, pe32) .判断结束 .判断循环尾 () CloseHandle (hSnapShot) 返回 (dwRet)