3句话绕过XXX拦截删除桌面快捷方式
直接删除是不行滴~
procedure DeletefileEx(name:String);
var
name2:string;
begin
name2:=ExtractfilePath(name)+'\E.txt';
movefile(Pchar(name),Pchar(name2));
Deletefile(name2);
end;
关键字词:
3句话绕过XXX拦截删除桌面快捷方式
直接删除是不行滴~
procedure DeletefileEx(name:String);
var
name2:string;
begin
name2:=ExtractfilePath(name)+'\E.txt';
movefile(Pchar(name),Pchar(name2));
Deletefile(name2);
end;