驱动级强制删除文件工具源码 支持64位系统

.如果 (强删文件 (删首尾空 (编辑框1.内容)) ＝ 真)
    信息框 (“删除成功！”, 0, , )
.否则
    信息框 (“删除失败，请检查驱动是否安装成功或路径是否正确！”, 0, , )
.如果结束
.子程序 强删文件, 逻辑型
.参数 FilePath, 文本型
.局部变量 hDevice, 整数型
.局部变量 Buffer, 文本型
.局部变量 Output, 逻辑型

Buffer ＝ “\??\” ＋ FilePath
hDevice ＝ GetDeviceHandle ()
Output ＝ Api_DeviceIoControl (hDevice, 2236420, asm_strcpyn_String (Buffer), 取文本长度 (Buffer), 0, 0, 0, 0)
Api_CloseHandle (hDevice)
返回 (Output)
.子程序 GetDeviceHandle, 整数型, , 获取驱动句柄
返回 (Api_CreateFileA (“\\.\DeleteFile64”, 位或 (#GENERIC_READ, #GENERIC_WRITE), 位或 (#FILE_SHARE_READ, #FILE_SHARE_WRITE), 0, #OPEN_EXISTING, 0, 0))