读取到了当前运行的程序目录如何能结束指定路径的程序呢? - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集1

子程序名	返回值类型	公开	备注
__启动窗口1_创建完毕

_枚举进程文件路径 ()

子程序名	返回值类型	公开	备注
_枚举进程文件路径

变量名	类型	静态	数组	备注
cb	整数型
cbNeeded	整数型
NumElements	整数型
ProcessIDs	整数型		0
cbNeeded2	整数型
NumElements2	整数型
Modules	整数型		255
lret	整数型
ModuleName	文本型
nSize	整数型
hProcess	整数型
i	整数型

cb ＝ 8
cbNeeded ＝ 96

判断循环首 (cb ≤ cbNeeded)

cb ＝ cb × 2

重定义数组 (ProcessIDs, 假, cb ÷ 4)

lret ＝枚举进程_ (ProcessIDs [1], cb, cbNeeded)

判断循环尾 ()
NumElements ＝ cbNeeded ÷ 4

变量循环首 (1, NumElements, 1, i)

hProcess ＝打开进程_ (位或 ( #PROCESS_QUERY_INFORMATION, #PROCESS_VM_READ ), 0, ProcessIDs [i])

如果真 (hProcess ≠ 0)

lret ＝枚举进程模块_ (hProcess, Modules [1], 255, cbNeeded2)

如果真 (lret ≠ 0)

ModuleName ＝取空白文本 (255)

nSize ＝ 255

lret ＝取模块文件名扩展_ (hProcess, Modules [1], ModuleName, 255)

_启动窗口1.列表框10.加入项目 (ModuleName, )

变量循环尾 ()
关闭内核对象_ (hProcess)
_启动窗口1.标签10.标题＝ “当前可获取进程路径：” ＋到文本 (_启动窗口1.列表框10.取项目数 ())

子程序名	返回值类型	公开	备注
_列表框10_双击选择

_启动窗口.标签9.标题＝列表框10.取项目文本 (列表框10.现行选中项)
销毁 ()

i支持库列表	支持库注释
const	(未知支持库)

.版本 2<br />
.支持库 const<br />
<br />
.程序集 窗口程序集1<br />
<br />
.子程序 __启动窗口1_创建完毕<br />
<br />
_枚举进程文件路径 ()<br />
<br />
.子程序 _枚举进程文件路径, , 公开<br />
.局部变量 cb, 整数型<br />
.局部变量 cbNeeded, 整数型<br />
.局部变量 NumElements, 整数型<br />
.局部变量 ProcessIDs, 整数型, , "0"<br />
.局部变量 cbNeeded2, 整数型<br />
.局部变量 NumElements2, 整数型<br />
.局部变量 Modules, 整数型, , "255"<br />
.局部变量 lret, 整数型<br />
.局部变量 ModuleName, 文本型<br />
.局部变量 nSize, 整数型<br />
.局部变量 hProcess, 整数型<br />
.局部变量 i, 整数型<br />
<br />
cb ＝ 8<br />
cbNeeded ＝ 96<br />
.判断循环首 (cb ≤ cbNeeded)<br />
    cb ＝ cb × 2<br />
    重定义数组 (ProcessIDs, 假, cb ÷ 4)<br />
    lret ＝ 枚举进程_ (ProcessIDs [1], cb, cbNeeded)<br />
.判断循环尾 ()<br />
NumElements ＝ cbNeeded ÷ 4<br />
.变量循环首 (1, NumElements, 1, i)<br />
    hProcess ＝ 打开进程_ (位或 (#PROCESS_QUERY_INFORMATION, #PROCESS_VM_READ), 0, ProcessIDs <i>)<br />
    .如果真 (hProcess ≠ 0)<br />
        lret ＝ 枚举进程模块_ (hProcess, Modules [1], 255, cbNeeded2)<br />
        .如果真 (lret ≠ 0)<br />
            ModuleName ＝ 取空白文本 (255)<br />
            nSize ＝ 255<br />
            lret ＝ 取模块文件名扩展_ (hProcess, Modules [1], ModuleName, 255)<br />
            _启动窗口1.列表框10.加入项目 (ModuleName, )<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.变量循环尾 ()<br />
关闭内核对象_ (hProcess)<br />
_启动窗口1.标签10.标题 ＝ “当前可获取进程路径：” ＋ 到文本 (_启动窗口1.列表框10.取项目数 ())<br />
<br />
.子程序 _列表框10_双击选择<br />
<br />
_启动窗口.标签9.标题 ＝ 列表框10.取项目文本 (列表框10.现行选中项)<br />
销毁 ()

子程序名	返回值类型	公开	备注
_按钮3_被单击

如果真 (标签9.标题＝ “”)

返回 ()
超级列表框2.插入表项 (-1, , , , , )
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 0, 到文本 (超级列表框2.取表项数 ()))
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 1, 到文本 (取日期 (日期框1.今天)) ＋编辑框2.内容)
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 2, “未运行”)
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 3, 标签9.标题)

子程序名	返回值类型	公开	备注
数组_输出

子程序名	返回值类型	公开	备注
_超级列表框2_右键单击表项

弹出菜单 (右键超级列表, 取鼠标水平位置 (), 取鼠标垂直位置 ())

子程序名	返回值类型	公开	备注
_时钟2_周期事件

变量名	类型	静态	数组	备注
i	整数型

标签10.标题＝到文本 (取现行时间 ())

计次循环首 (超级列表框2.取表项数 (), i)

如果真 (超级列表框2.取标题 (i － 1, 1) ＝到文本 (取现行时间 ()))

执行 (4, 超级列表框2.取标题 (i － 1, 3), , , 2)

超级列表框2.置标题 (i － 1, 2, “已运行”)

计次循环尾 ()

子程序名	返回值类型	公开	备注
_调节器2_调节钮被按下
参数名	类型	参考	可空	数组	备注
按钮值1	整数型

变量名	类型	静态	数组	备注
数组1	文本型		0

如果 (编辑框2.可有焦点 ())

加入成员 (数组1, 取文本左边 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) － 1))

加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) ＋ 2, 寻找文本 (编辑框2.内容, “分”, , 假) － 2 －寻找文本 (编辑框2.内容, “时”, , 假)))

加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “分”, , 假) ＋ 2, 取文本长度 (编辑框2.内容) －寻找文本 (编辑框2.内容, “分”, , 假) － 3))

判断 (编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “时”, , 假))

数组1 [1] ＝到文本 (到数值 (数组1 [1]) ＋按钮值1)

如果真 (数组1 [1] ＝ “24”)

数组1 [1] ＝ “0”

如果真 (数组1 [1] ＝ “-1”)

数组1 [1] ＝ “23”

编辑框2.内容＝数组1 [1] ＋ “时” ＋数组1 [2] ＋ “分” ＋数组1 [3] ＋ “秒”

编辑框2.起始选择位置＝寻找文本 (编辑框2.内容, “时”, , 假) － 1

判断 (编辑框2.起始选择位置＞寻找文本 (编辑框2.内容, “时”, , 假) 且编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “分”, , 假))

数组1 [2] ＝到文本 (到数值 (数组1 [2]) ＋按钮值1)

如果真 (数组1 [2] ＝ “60”)

数组1 [2] ＝ “0”

如果真 (数组1 [2] ＝ “-1”)

数组1 [2] ＝ “59”

编辑框2.内容＝数组1 [1] ＋ “时” ＋数组1 [2] ＋ “分” ＋数组1 [3] ＋ “秒”

编辑框2.起始选择位置＝寻找文本 (编辑框2.内容, “分”, , 假) － 1

判断 (编辑框2.起始选择位置＞倒找文本 (编辑框2.内容, “ ：”, , 假))

数组1 [3] ＝到文本 (到数值 (数组1 [3]) ＋按钮值1)

如果真 (数组1 [3] ＝ “60”)

数组1 [3] ＝ “0”

如果真 (数组1 [3] ＝ “-1”)

数组1 [3] ＝ “59”

编辑框2.内容＝数组1 [1] ＋ “时” ＋数组1 [2] ＋ “分” ＋数组1 [3] ＋ “秒”

编辑框2.起始选择位置＝寻找文本 (编辑框2.内容, “秒”, , 假) － 1

信息框 (“温馨提示：请点击要改变的时间部分！谢谢！”, 0, “请选择时间部分：”)

i支持库列表	支持库注释
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br />
.支持库 iext<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
.如果真 (标签9.标题 ＝ “”)<br />
    信息框 (“温馨提示：请按浏览按钮选择启动路径，谢谢！”, 0, “请选择执行路径：”)<br />
    返回 ()<br />
.如果真结束<br />
超级列表框2.插入表项 (-1, , , , , )<br />
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 0, 到文本 (超级列表框2.取表项数 ()))<br />
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 1, 到文本 (取日期 (日期框1.今天)) ＋ 编辑框2.内容)<br />
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 2, “未运行”)<br />
超级列表框2.置标题 (超级列表框2.取表项数 () － 1, 3, 标签9.标题)<br />
<br />
<br />
<br />
.子程序 数组_输出<br />
<br />
<br />
<br />
.子程序 _超级列表框2_右键单击表项<br />
<br />
弹出菜单 (右键超级列表, 取鼠标水平位置 (), 取鼠标垂直位置 ())<br />
<br />
<br />
.版本 2<br />
.支持库 iext<br />
.支持库 shell<br />
<br />
<br />
<br />
.子程序 _时钟2_周期事件<br />
.局部变量 i, 整数型<br />
<br />
<br />
标签10.标题 ＝ 到文本 (取现行时间 ())<br />
.计次循环首 (超级列表框2.取表项数 (), i)<br />
    .如果真 (超级列表框2.取标题 (i － 1, 1) ＝ 到文本 (取现行时间 ()))<br />
        执行 (4, 超级列表框2.取标题 (i － 1, 3), , , 2)<br />
        超级列表框2.置标题 (i － 1, 2, “已运行”)<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
<br />
<br />
.子程序 _调节器2_调节钮被按下<br />
.参数 按钮值1, 整数型<br />
.局部变量 数组1, 文本型, , "0"<br />
<br />
<br />
.如果 (编辑框2.可有焦点 ())<br />
    加入成员 (数组1, 取文本左边 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) － 1))<br />
    加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “时”, , 假) ＋ 2, 寻找文本 (编辑框2.内容, “分”, , 假) － 2 － 寻找文本 (编辑框2.内容, “时”, , 假)))<br />
    加入成员 (数组1, 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “分”, , 假) ＋ 2, 取文本长度 (编辑框2.内容) － 寻找文本 (编辑框2.内容, “分”, , 假) － 3))<br />
    .判断开始 (编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “时”, , 假))<br />
        数组1 [1] ＝ 到文本 (到数值 (数组1 [1]) ＋ 按钮值1)<br />
        .如果真 (数组1 [1] ＝ “24”)<br />
            数组1 [1] ＝ “0”<br />
        .如果真结束<br />
        .如果真 (数组1 [1] ＝ “-1”)<br />
            数组1 [1] ＝ “23”<br />
        .如果真结束<br />
        编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”<br />
        编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “时”, , 假) － 1<br />
    .判断 (编辑框2.起始选择位置 ＞ 寻找文本 (编辑框2.内容, “时”, , 假) 且 编辑框2.起始选择位置 ≤ 寻找文本 (编辑框2.内容, “分”, , 假))<br />
        数组1 [2] ＝ 到文本 (到数值 (数组1 [2]) ＋ 按钮值1)<br />
        .如果真 (数组1 [2] ＝ “60”)<br />
            数组1 [2] ＝ “0”<br />
        .如果真结束<br />
        .如果真 (数组1 [2] ＝ “-1”)<br />
            数组1 [2] ＝ “59”<br />
        .如果真结束<br />
        编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”<br />
        编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “分”, , 假) － 1<br />
    .判断 (编辑框2.起始选择位置 ＞ 倒找文本 (编辑框2.内容, “ ：”, , 假))<br />
        数组1 [3] ＝ 到文本 (到数值 (数组1 [3]) ＋ 按钮值1)<br />
        .如果真 (数组1 [3] ＝ “60”)<br />
            数组1 [3] ＝ “0”<br />
        .如果真结束<br />
        .如果真 (数组1 [3] ＝ “-1”)<br />
            数组1 [3] ＝ “59”<br />
        .如果真结束<br />
        编辑框2.内容 ＝ 数组1 [1] ＋ “时” ＋ 数组1 [2] ＋ “分” ＋ 数组1 [3] ＋ “秒”<br />
        编辑框2.起始选择位置 ＝ 寻找文本 (编辑框2.内容, “秒”, , 假) － 1<br />
    .默认<br />
<br />
    .判断结束<br />
<br />
.否则<br />
    信息框 (“温馨提示：请点击要改变的时间部分！谢谢！”, 0, “请选择时间部分：”)