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 android windows ios通用获取程序版本

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi中判断窗体最大化和最小化事件

Delphi程序的exe和dll文件添加版本信息

Delphi 控制台读写

Delphi webbroker iis cgi 的配置

Delphi禁止用户切换任务

Delphi 通过wmi获取u盘硬件特征码

Delphi setpriorityclass 设置当前程序的优先级

Delphi if pos 多条件判断用法交流

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

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