文件粉碎专家软件可以彻底删除顽固文件

.如果真 (iMsg ＝ #WM_DROPFILES)
FilePath ＝ 取空白文本 (#MAX_PATH)
Count ＝ DragQueryFileA (wParam, -1, FilePath, #MAX_PATH)
.变量循环首 (0, Count － 1, 1, i)
DragQueryFileA (wParam, i, FilePath, #MAX_PATH)
r ＝ 取文件属性 (FilePath)
.如果 (位与 (r, #子目录) ≠ 0)
删除目录_ (FilePath) ' 先删除目录中的文件,然后再删除文件夹
.否则
.如果 (KillFile (FilePath))
编辑框1.加入文本 (FilePath ＋ “ 删除成功!” ＋ #换行符)
.否则
编辑框1.加入文本 (FilePath ＋ “ 删除失败!” ＋ #换行符)
.如果结束

.如果结束
处理事件 ()
.变量循环尾 ()
DragFinish (wParam)
返回 (0)
.如果真结束
返回 (CallWindowProcA (原函数指针, hWnd, iMsg, wParam, lParam))