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;