扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
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:\WINDOWS\Start Menu\Programs\redbird.lnk'; //设置目标文件
pf.Save(PWideChar(lnkName),true); //保存文件
end;
当然以上这段代码应放在程序第一次运行时的代码段中,而且程序组或是桌面的位置最好要以注册表 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders中的对应值为准。您对注册表的操作可通过Delphi对注册表封装了的TRegistry 来完成,此法比较简单,在此就不再赘述,如您想写出更小的程序或是您在用VB编程,那就得调用API.以下作者将以对注册表API函数的直接调用向大家介绍如何建立添加删除程序中的项目.同样,这段代码也应放在程序首次运行时执行。
program project1;
uses
Windows;
{$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, // 注册表根键
'Software\Microsoft\Windows\CurrentVersion\Uninstall\MyApp'//你的程序项
, 0, nil,REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, IKey, @IHand);
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;
好了,有了以上的三点装饰,您的程序应该已经像个产品的样子,至于程序的内容,还得您来充实了。
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者