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 idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi 安卓app自动升级

Delphi webbrowser执行脚本

Delphi指针长度

Delphi读取android设备联系人.Delphixe6中编译通过

Delphi linklabel1 用法

Delphi中分隔字符串函数的使用

elphi中取出字符串中指定位置的几个字符

Delphi 获取listbox1多选的值

Delphi实时监视应用程序内存使用量

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

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