易语言检测文件被哪个进程占用的代码

检测文件占用的代码

此功能需要加载贝贝吧模块6.6

.版本 2
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.子程序 _查询按钮_被单击
.局部变量 进程名, 进程信息, , "0"
.局部变量 进程id, 整数型, , "0"
.局部变量 a, 整数型, , "0"
.局部变量 i, 整数型
进程名 ＝ 取系统进程列表 ()
显示占用列表框.清空 ()
.计次循环首 (取数组成员数 (进程名), i)
  .如果真 (寻找文本 (到小写 (进程_取程序路径 (进程名 [i].进程标识符)), “system32”, , 真) ＝ -1 且 到小写 (进程_取程序路径 (进程名 [i].进程标识符)) ≠ “” 且 进程名 [i].进程标识符 ≠ 进程_取自进程ID ())
    .如果真 (内存.搜索 (进程名 [i].进程标识符, 到字节集 (文件路径编辑框.内容), a) ＞ 1)
      显示占用列表框.加入项目 (进程名 [i].进程名称, 进程名 [i].进程标识符)
    .如果真结束
  .如果真结束
  标题 ＝ 到文本 (i)
.计次循环尾 ()
标题 ＝ “结束”
.子程序 _选择程序按钮_被单击
.如果真 (通用对话框1.打开 ())
  文件路径编辑框.内容 ＝ 通用对话框1.文件名
.如果真结束

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对呐喊教程的支持。如果你想了解更多相关内容请查看下面相关链接

声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：notice#nhooo.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。