驱动级强删文件工具支持64位全系统

易语言 2020-03-06 18:50:37

驱动级强删文件工具支持64位全系统

.子程序 强删文件, 逻辑型
.参数 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)