首页 相关文章 程序快捷方式/程序删除项/EXE自删除DIY

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

作者:火鸟 redbirdli@hotmail.com每一个编程爱好者,都希望自己的作品能为大家接受和喜爱,但我们的作品大多是简单的一个EXE文件的拷贝,既不需安装也没有删除程序,让人觉得只是程序而不是产品,以下我以Delphi 为例和大家交流一下程序组快捷方式建立、添加删除程序组中的删除项和程序的自删除等功能。
  1.以下先来介绍建立程序组快捷方式的方法:
  在uses 单元中加入 shlobj,activex,comobj,在窗口中添加一个button,并在其事件中添加以下代码:
  procedure TForm1.Button1Click(Sender: TObject);
  var sl:ishelllink;
  pf:ipersistFile;
  lnkName:Widestring;
  app:string;
  begin
  olecheck(cocreateInstance(clsid_shellLink,nil,Clsctx_inproc_server,iShellLink,sl));
  pf:=sl as IPersistFile;
  app:=application.exena...[ 查看全文 ]

2016-02-19 标签:

程序快捷方式/程序删除项/EXE自删除DIY的相关文章

手机页面
收藏网站 回到头部