为何不选“build with runtime packages”的情况下，GetClass返回nil呢

[程晨c]

加载bpl中的窗体时
为何不选“build with runtime packages”的情况下，GetClass返回nil呢
选择“build with runtime packages”，Getclass是可以取到类的
bpl的useage option为designtime and runtime

加载bpl窗体的代码如下

procedure TForm1.btn1Click(Sender: TObject);
var
  h:HMODULE;
  clsBpl:TPersistentClass;
  nfrmBpl:TForm;
begin
  h:=LoadPackage(ExtractFilePath(Application.ExeName)+'package1.bpl');
  if h<>0 then
  begin
    clsBpl:=GetClass('TfrmBpl');
    if clsBpl<>nil then
    begin
      nfrmBpl:= TComponentClass(clsBpl).Create(Application) as TForm;
      nfrmBpl.Show;
    end;
  end;
end;

[spirit_of_cloud]

窗体类使用 RegistClass 注册了没？

[程晨c]

没有人想过此问题吗？

[程晨c]

窗体类已经使用 RegistClass 注册了， 现在的问题是 不选“build with runtime packages”时，GetClass返回nil 选择“build with runtime packages”时，Getclass是可以取到类的

[喜人军]

楼主解决么？

[程晨c]

还没搞明白，未解决