进程名取窗口句柄和修改软件标题

所有句柄 ＝ 取所有窗口列表 ()
所有进程 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (所有进程), 计次2)
.如果真 (所有进程 [计次2].进程名称 ＝ 编辑框2.内容)
指定进程ID ＝ 所有进程 [计次2].进程标识符
跳出循环 ()
.如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (所有句柄), 计次1)
GetWindowThreadProcessId (到数值 (所有句柄 [计次1]), 进程ID)
编辑框1.内容 ＝ “”
.如果真 (进程ID ＝ 指定进程ID)
编辑框1.内容 ＝ 所有句柄 [计次1]
跳出循环 ()
.如果真结束

.计次循环尾 ()