文件粉碎机c语言代码,Life——文件粉碎机源码

.程序集变量 FileID, 整数型

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

.如果真 (通用对话框1.打开 ())

编辑框1.内容 ＝ 通用对话框1.文件名

FileID ＝ 打开文件 (通用对话框1.文件名, , #禁止读写)

.如果 (FileID ≠ 0)

编辑框2.加入文本 (“文件名：” ＋ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 真)) ＋ #换行符)

编辑框2.加入文本 (“目录：” ＋ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 真) － 1) ＋ #换行符)

编辑框2.加入文本 (“粉碎后可释放空间：” ＋ 数值到格式文本 (取文件长度 (FileID), , 真) ＋ “ 字节” ＋ #换行符)

连续赋值 (假, 按钮2.禁止, 按钮3.禁止)

连续赋值 (真, 按钮1.禁止, 编辑框1.禁止)

.否则

编辑框2.加入文本 (“文件载入失败，无法完成粉碎。”)

.如果结束

.如果真结束

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

.局部变量 Temp_byte, 字节集

.局部变量 id, 整数型

.如果真 (信息框 (“该操作不可恢复，确定继续吗？”, 36, “询问:”) ＝ #是钮)

连续赋值 (真, 按钮2.禁止, 按钮3.禁止)

删除数据 (FileID, 取文件长度 (FileID))

延时 (50)

进度条1.位置 &#x