3

我正在开发一个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。但是组件安装了idhidden

谁能告诉我如何unhide安装component？

编辑

可能有用：

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

2）register组件的过程

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

1 回答 1

8

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

于 2012-05-07T11:28:53.720 回答