关于delphi中包的使用问题

Question

我最近才开始接触包的使用。我想问一下怎么使用包。现在我做好了一个很简单的包，里面只有一个空的界面。我想在另外的工程里使用这个界面，不知道该怎么做，请各位大哥帮忙，最好有简单的代码或者操作说明

Answer 1

关注此问题，如果有答案请您给我发一份。谢谢
[email protected]

Answer 2

http://borland.mblogger.cn/aiirii/posts/2886.aspx

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  FpkHandle := LoadPackage('demo.bpl');
  if FpkHandle = 0 then
    ShowMessage('Can not load package Demo.bpl');
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  ADOQuery1.Connection := nil;
  FDM := nil;  if FpkHandle <> 0 then
    UnloadPackage(FpkHandle);
end;procedure TForm1.btGetFormClick(Sender: TObject);
var
  AForm: TForm;
  AClass: TComponentClass;
begin
  if FpkHandle <> 0 then
  begin
    AClass := TComponentClass(GetClass('TFrmTest'));
    if AClass <> nil then
    begin
      AForm := AClass.Create(nil) as TForm;
      AForm.ShowModal;
      AForm.Free;
    end;
  end;
end;在TFrmTest中要加上
initialization
  RegisterClass(TpkfrmTest);
finalization
  UnRegisterClass(TpkfrmTest);记得调用的主程序要build with runtime packages!

Answer 4

Sorry
应该是
initialization
  RegisterClass(TFrmTest);
finalization
  UnRegisterClass(TFrmTest);