怎么取进程中的子进程数量呢？

叫我尹志平

图片失效

揰掵佲

精易模块的源码  加上就行了

  

子程序名	返回值类型	公开	备 注
进程_取子进程数W	整数型		取指定进程ID为父进程的子进程ID
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型

变量名	类 型	静态	数组	备 注
hSnapshort	整数型
pe32	PROCESSENTRY32W
bRet	逻辑型
hProcess	整数型
pbi	PROCESS_BASIC_INFORMATION
dwProcessId	整数型
i	整数型

hSnapshort ＝ CreateToolhelp32Snapshot ( #TH32CS_SNAPPROCESS, 0)
如果真 (hSnapshort ＝ #INVALID_HANDLE_VALUE )
返回 ( #INVALID_HANDLE_VALUE )
pe32.dwSize ＝ 556
bRet ＝ Process32FirstW (hSnapshort, pe32)
判断循环首 (bRet)
hProcess ＝ OpenProcess ( #PROCESS_QUERY_INFORMATION, 0, pe32.th32ProcessID)
bRet ＝ NtQueryInformationProcess (hProcess, #NULL, 取数据_通用型 (pbi), 24, #NULL ) ≥ 0
如果真 (bRet)
如果真 (pbi.InheritedFromUniqueProcessId ＝ 进程ID)
' dwProcessId ＝ pe32.th32ProcessID
i ＝ i ＋ 1

CloseHandle (hProcess)
bRet ＝ Process32NextW (hSnapshort, pe32)
判断循环尾 ()
CloseHandle (hSnapshort)
返回 (i)

子程序名	返回值类型	公开	备 注
进程_取子进程数	整数型		取指定进程ID为父进程的子进程ID
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型

返回 (进程_取子进程数W (进程ID))

.版本 2<br /> <br /> .子程序 进程_取子进程数W, 整数型, 公开, 取指定进程ID为父进程的子进程ID<br /> .参数 进程ID, 整数型<br /> .局部变量 hSnapshort, 整数型<br /> .局部变量 pe32, PROCESSENTRY32W<br /> .局部变量 bRet, 逻辑型<br /> .局部变量 hProcess, 整数型<br /> .局部变量 pbi, PROCESS_BASIC_INFORMATION<br /> .局部变量 dwProcessId, 整数型<br /> .局部变量 i, 整数型<br /> <br /> hSnapshort ＝ CreateToolhelp32Snapshot (#TH32CS_SNAPPROCESS, 0)<br /> .如果真 (hSnapshort ＝ #INVALID_HANDLE_VALUE)<br />     返回 (#INVALID_HANDLE_VALUE)<br /> .如果真结束<br /> pe32.dwSize ＝ 556<br /> bRet ＝ Process32FirstW (hSnapshort, pe32)<br /> .判断循环首 (bRet)<br />     hProcess ＝ OpenProcess (#PROCESS_QUERY_INFORMATION, 0, pe32.th32ProcessID)<br />     bRet ＝ NtQueryInformationProcess (hProcess, #NULL, 取数据_通用型 (pbi), 24, #NULL) ≥ 0<br />     .如果真 (bRet)<br />         .如果真 (pbi.InheritedFromUniqueProcessId ＝ 进程ID)<br />             ' dwProcessId ＝ pe32.th32ProcessID<br />             i ＝ i ＋ 1<br />         .如果真结束<br /> <br />     .如果真结束<br />     CloseHandle (hProcess)<br />     bRet ＝ Process32NextW (hSnapshort, pe32)<br /> .判断循环尾 ()<br /> CloseHandle (hSnapshort)<br /> 返回 (i)<br /> <br /> .子程序 进程_取子进程数, 整数型, 公开, 取指定进程ID为父进程的子进程ID<br /> .参数 进程ID, 整数型<br /> <br /> 返回 (进程_取子进程数W (进程ID))

人善帝王心

下个精易模块源码  自己改下这个！

  

子程序名	返回值类型	公开	备 注
进程_取子进程IDW	整数型		取指定进程ID为父进程的子进程ID
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型
子进程名	字节集

变量名	类 型	静态	数组	备 注
hSnapshort	整数型
pe32	PROCESSENTRY32W
bRet	逻辑型
hProcess	整数型
pbi	PROCESS_BASIC_INFORMATION
dwProcessId	整数型		0

hSnapshort ＝ CreateToolhelp32Snapshot ( #TH32CS_SNAPPROCESS, 0)
如果真 (hSnapshort ＝ #INVALID_HANDLE_VALUE )
返回 ( #INVALID_HANDLE_VALUE )
pe32.dwSize ＝ 556
bRet ＝ Process32FirstW (hSnapshort, pe32)
判断循环首 (bRet)
如果真 (文本_文本比较W (取数据_通用型_数组 (pe32.szExeFile), 取指针_字节集型 (子进程名), ) ＝ 0)
hProcess ＝ OpenProcess ( #PROCESS_QUERY_INFORMATION, 0, pe32.th32ProcessID)
bRet ＝ NtQueryInformationProcess (hProcess, #NULL, 取数据_通用型 (pbi), 24, #NULL ) ≥ 0
如果真 (bRet)
如果真 (pbi.InheritedFromUniqueProcessId ＝ 进程ID)
' dwProcessId ＝ pe32.th32ProcessID
' 跳出循环 ()
加入成员 (dwProcessId, pe32.th32ProcessID)

CloseHandle (hProcess)
bRet ＝ Process32NextW (hSnapshort, pe32)
判断循环尾 ()
CloseHandle (hSnapshort)
返回 (取数组成员数 (dwProcessId))

.版本 2<br /> <br /> .子程序 进程_取子进程IDW, 整数型, 公开, 取指定进程ID为父进程的子进程ID<br /> .参数 进程ID, 整数型<br /> .参数 子进程名, 字节集<br /> .局部变量 hSnapshort, 整数型<br /> .局部变量 pe32, PROCESSENTRY32W<br /> .局部变量 bRet, 逻辑型<br /> .局部变量 hProcess, 整数型<br /> .局部变量 pbi, PROCESS_BASIC_INFORMATION<br /> .局部变量 dwProcessId, 整数型, , "0"<br /> <br /> hSnapshort ＝ CreateToolhelp32Snapshot (#TH32CS_SNAPPROCESS, 0)<br /> .如果真 (hSnapshort ＝ #INVALID_HANDLE_VALUE)<br />     返回 (#INVALID_HANDLE_VALUE)<br /> .如果真结束<br /> pe32.dwSize ＝ 556<br /> bRet ＝ Process32FirstW (hSnapshort, pe32)<br /> .判断循环首 (bRet)<br />     .如果真 (文本_文本比较W (取数据_通用型_数组 (pe32.szExeFile), 取指针_字节集型 (子进程名), ) ＝ 0)<br />         hProcess ＝ OpenProcess (#PROCESS_QUERY_INFORMATION, 0, pe32.th32ProcessID)<br />         bRet ＝ NtQueryInformationProcess (hProcess, #NULL, 取数据_通用型 (pbi), 24, #NULL) ≥ 0<br />         .如果真 (bRet)<br />             .如果真 (pbi.InheritedFromUniqueProcessId ＝ 进程ID)<br />                 ' dwProcessId ＝ pe32.th32ProcessID<br />                 ' 跳出循环 ()<br />                 加入成员 (dwProcessId, pe32.th32ProcessID)<br />             .如果真结束<br /> <br />         .如果真结束<br />         CloseHandle (hProcess)<br />     .如果真结束<br />     bRet ＝ Process32NextW (hSnapshort, pe32)<br /> .判断循环尾 ()<br /> CloseHandle (hSnapshort)<br /> 返回 (取数组成员数 (dwProcessId))