delphi 3句话绕过XXX拦截删除桌面快捷方式

本文整理自网络，侵删。

 
 3句话绕过XXX拦截删除桌面快捷方式

直接删除是不行滴~



procedure DeletefileEx(name:String);
var
name2:string;
begin
name2:=ExtractfilePath(name)+'\E.txt';
movefile(Pchar(name),Pchar(name2));
Deletefile(name2);
end;


 

相关阅读 >>

Delphi 解析 png 图片的十六进制字符流

Delphi-edit中只能输入数字且只能输入一个小数点

Delphi10.3.2安卓sdk安装

Delphi 全局钩子锁定鼠标

Delphi 判断是否是0-9数字

Delphi捕获twebbrowser的close事件

Delphi 中format的字符串格式化使用说明

Delphi xe安装后配置android的sdk的方法

Delphi xe 制作的萤光时钟，可改作屏保

Delphi 获取 treeview选中的文件路径

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 3句话绕过XXX拦截删除桌面快捷方式