快捷方式/删除项/EXE自删除DIY

作者佚名技术来源互联网浏览发布时间 2012-01-18

RegSetValueEx(Ikey, 'DisplayName'
, 0, REG_SZ, Pchar('删除我吧！')//删除列表中显示的字符
,10); //字符长度
RegSetValueEx(Ikey, 'UninstallString',0
, REG_SZ, pchar(ParamStr(0)+' /UNINSTALL'),//删除所调用的命令行
4);
end.

此段代码将你的程序全路径名和"/UNINSTALL"参数写入了注册表 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\MyApp中，你在添加删除程序中可以看到“删除我吧！”的项目,而当你点击此项目时，你的程序通过ParamStr(1)将收到"/UNINSTALL"的参数，并以此为标识调用删除程序的代码即可。以下我们再来介绍当你的程序收到此参数后，不需调用其它程序而“自删除”的两个方法。

其中之一是在接到此参数后动态建立一个删除文件的批处理文件，在程序内部将安装程序后生成的诸如快捷方式等文件和注册表值删除后在退出前调用此批处理文件将自己删除即可，如：

procedure TForm1.FormCreate(Sender: TObject);
var f:textfile ;//作者不建议您将删除代码放在FormCreate事件中,作者认为那将出现不能删除的可能性。
begin
AssignFile(f,'temp.bat');
Rewrite(F);
Writeln(f,'del '+paramstr(0));
Writeln(f,'del temp.bat');
closefile(f);
application.Terminate ;
winexec('temp.bat',SW_HIDE);
halt;
end;

对文本文件的处理比较简单，几经摸索，作者又找到了更好的第二种方法,简单易行,直接调用命令shell即可完成删除工作：

application.Terminate;
winexec(pchar('command.com /c del '+ParamStr(0)),SW_MINIMIZE);//最小化执行删除操作，否则将看到DOS窗口的瞬间闪烁
halt;

好了，有了以上的三点装

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: 排序Select中Option项的一个示例下一篇: 用简单的Tracer类来为应用写入跟踪

关于快捷方式/删除项/EXE自删除DIY的所有评论

随机推荐