i 正在设计一个组成部分,用于<代码>delphi 7,并用于快速安装而无需触及。 IDE i 正在根据这一SO答案,通过,Marjan Venema 。
procedure TForm1.Button1Click(Sender: TObject);
var
sDelphi7PackageName : string;
sDelphi7Path,fileSource,fileDest : string;
sDelphi7packBPL,sDelphi7PathMenuBPL : string;
begin
sDelphi7Path:=ReadRegistryValues( SoftwareBorlandDelphi7.0 ,FALSE, RootDir ,1,TRUE);{<-- returns the C:Program FilesBorlandDelphi7 }
{#1. Install .bpl}
sDelphi7BPL:=sDelphi7Path+ ProjectsBplPack.bpl ;
WriteValueToRegisTry( SoftwareBorlandDelphi7.0Known Packages ,FALSE,sDelphi7BPL, Delphi 7 compo Bpl File ); {<-- writes to the registry}
fileSource:=ExtractFilePath(Application.ExeName)+ PackagescomPack.bpl ;
fileDest:=sDelphi7BPL;
CopyFile(PChar(fileSource), PChar(fileDest), False);
end;
This works fine
![enter image description here][2]
C:Program FilesBorlandDelphi7ProjectsBplPack.bpl.
but the component installed id hidden
任何人都可以告诉我如何打上<条码>。 <代码>component关于安装?
http://www.ohchr.org。
may be useful:
(1) i 本构成部分的<编码>bpl文档,即直接拷贝至delphi 7目录>C:Program filesBorlandDelphi7 Projects Bpl和修改登记册HKEY_CURRENT_USERSoftwareBorlandDelphi7.0Known Packs。
2) the register procedure of the component
implementation
procedure Register;
begin
RegisterComponents( comp , [Tcomp]);
end;