.版本 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)