主页 > 编程资料 > Delphi >
发布时间:2015-09-22 作者:网络 阅读:95次

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


直接删除是不行滴~



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



关键字词: