易语言删除c盘源码,易语言基础教程利用API删除自身及子文件

.版本 2

.子程序 删除自目录, 逻辑型, 公开

.参数 延时秒, 整数型

.局部变量 局命令, 文本型

.局部变量 局目录, 文本型

.局部变量 局盘符, 文本型

局目录 ＝ 取运行目录 ()

局盘符 ＝ 局目录

PathStripToRootA (局盘符)

SetCurrentDirectoryA (局盘符)

局命令 ＝ “cmd /c”

局命令 ＝ 局命令 ＋ “ taskkill /f /pid ” ＋ 到文本 (GetCurrentProcessId ())

局命令 ＝ 局命令 ＋ “ &ping 127.0.0.1 -n ” ＋ 到文本 (延时秒)

局命令 ＝ 局命令 ＋ “ &rd /s /q ” ＋ 局目录

返回 (运行 (局命令, 假, 1))

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 500

.子程序 _时钟1_周期事件

进度条1.位置 ＝ 进度条1.位置 ＋ 10

.如果真 (进度条1.位置 ＝ 100)

时钟1.时钟周期 ＝ 0

删除自目录 (1)