- 博客(0)
- 资源 (4)
空空如也
自我删除软件原码,修改窗体界面
Var f:TextFile;
begin
assignfile(f,'delself.bat');{F为textfile类型}
rewrite(f);
writeln(f,'del '+extractfilename(application.exename));
writeln(f,'del %0');
closefile(f);
winexec('delself.bat',SW_HIDE);
//Messagebox(handle,'程序卸载成功','提示',0);
Close;
end;
2009-12-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人