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 改造shellexecute 精简函数

Delphi获取进程占用内存

Delphi 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4

如何在 Delphi 中静态链接 sqlite

Delphi dbgrid中实现copy、paste功能

Delphi获得文件的版本号

Delphi判断sql server 服务是否断开

Delphi 获取 treeview选中的文件路径

Delphi access 数据库压缩

dbgrid的cellclick事件，单击当前行记录的那一行时，不发生

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

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