gpt4 book ai didi

delphi 7,安装的组件在安装时隐藏

转载 作者:行者123 更新时间:2023-12-03 15:45:25 26 4
gpt4 key购买 nike

我正在为delphi 7开发一个组件,为了快速安装而无需接触IDE,我正在根据Marjan Venema的这个SO答案制作一个简单的安装程序。

    procedure TForm1.Button1Click(Sender: TObject);
var
sDelphi7PackageName : string;
sDelphi7Path,fileSource,fileDest : string;
sDelphi7packBPL,sDelphi7PathMenuBPL : string;
begin
sDelphi7Path:=ReadRegistryValues('\Software\Borland\Delphi\7.0',FALSE,'RootDir',1,TRUE);{<-- returns the 'C:\Program Files\Borland\Delphi7' }

{#1. Install .bpl}
sDelphi7BPL:=sDelphi7Path+'\Projects\Bpl\Pack.bpl';
WriteValueToRegisTry('\Software\Borland\Delphi\7.0\Known Packages',FALSE,sDelphi7BPL,'Delphi 7 compo Bpl File'); {<-- writes to the registry}

fileSource:=ExtractFilePath(Application.ExeName)+'\Packages\comPack.bpl';
fileDest:=sDelphi7BPL;
CopyFile(PChar(fileSource), PChar(fileDest), False);
end;

这很好用![在此输入图像描述][2]C:\Program Files\Borland\Delphi7\Projects\Bpl\Pack.bpl。 但安装的组件 ID hidden

谁能告诉我如何在安装时取消隐藏组件

编辑

可能有用:

1) 我已经有了组件的 bpl 文件,因此我直接复制到 delphi 7 目录 C:\Program Files\Borland\Delphi7\Projects\Bpl 并修改注册表HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Known Packages

2) 组件的注册过程

 implementation
procedure Register;
begin
RegisterComponents('comp', [Tcomp]);
end;

最佳答案

在注册表中的 HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Palette 下,找到名为 'comp.Hidden' 的条目并对其进行编辑以删除该类您的组件的名称(或完全删除该条目)。

关于delphi 7,安装的组件在安装时隐藏,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10479981/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com