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

2016-01-29 14:11 41 1 收藏

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

【 tulaoshi.com - Delphi 】

 
每一个编程爱好者,都希望自己的作品能为大家接受和喜爱,但我们的作品大多是简单的一个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.exename;
OleCheck(sl.SetPath(pchar(app)));//建立有效的链接
LnkName:='C:WINDOWSStart MenuProgramsredbird.lnk'; //设置目标文件
pf.Save(PWideChar(lnkName),true); //保存文件
end;

  当然以上这段代码应放在程序第一次运行时的代码段中,而且程序组或是桌面的位置最好要以注册表 HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders中的对应值为准。您对注册表的操作可通过Delphi对注册表封装了的TRegistry 来完成,此法比较简单,在此就不再赘述,如您想写出更小的程序或是您在用VB编程,那就得调用API.以下作者将以对注册表API函数的直接调用向大家介绍如何建立添加删除程序中的项目.同样,这段代码也应放在程序首次运行时执行。


program project1;
uses
Windows;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/delphi/)

{$R *.RES}
type
TRegKeyInfo = record
NumSubKeys: Integer;
MaxSubKeyLen: Integer;
NumValues: Integer;
MaxValueLen: Integer;
MaxDataLen: Integer;
FileTime: TFileTime;
end;
var IHand:integer;
IKey:Hkey;
Regs: TRegKeyInfo;
begin
RegCreateKeyEx(HKEY_LOCAL_MACHINE, // 注册表根键
'SoftwareMicrosoftWindowsCurrentVersionUninstallMyApp'//你的程序项
, 0, nil,REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, IKey, @IHand);

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/delphi/)[next]

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

  此段代码将 你的程序全路径名和"/UNINSTALL"参数写入了注册表 HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionUninstallMyApp中,你在添加删除程序中可以看到“删除我吧!”的项目,而当你点击此项目时,你的程序通过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;

 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/delphi/)

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


<

来源:http://www.tulaoshi.com/n/20160129/1492718.html

延伸阅读
WinRAR如何生成快捷方式   为了可以快速的打开一个程序,通常都给程序在桌面或是开始菜单中建立一个快捷方式。在WinRAR中建立快捷方式非常简单,你只要按Ctrl+S打开设置属性对话框,然后选择综合选项选项卡,在界面设置项中你就可以选择在桌面、开始菜单等处建立WinRAR的快捷方式,这样使用起来肯定会方便很多。
PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong SubCommand1_Click() DimlReturnAsLong '添加到桌面 lReturn=fCreateShellLink("....Desktop","ShortcuttoCalculator","c:windowscalc.e...
标签: 瘦腿
美腿总是可望不可及?不,看看下面这些通往美腿的捷径,你就会发现,获得美腿其实一点都不难。 1、减肥盐做腿部按摩 从市场上购买专用减肥盐,如没有可使用粗粒食用盐。每次洗澡时用少许盐在脚踝和小腿部位反复按摩,力度以不引起疼痛为宜。每次按摩时间为15至20分钟左右,按摩后用温度较高的清水浸泡几分钟后洗净。如能使...
下面的代码向你演示在VB中如何创建一个快捷方式。 PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong SubCommand1_Click() DimlReturnAsLong '添加到桌面 lReturn=fCre...
前几天应客户要求写这个东西,其实用VB,VC可能更快些,不过,我还是喜欢用DELPHI 首先 uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; 在指定文件夹建立当前应用程序才的快捷方式 procedure Tform1.MakeLink(Foldername: string ;proName, lnkName, Description: string ); var   WorkDir, DestName:...

经验教程

958

收藏

52
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部