1

我已经制作了一个表格,我想在 BPL 中分发它。
所以我创建了一个新的包和一个新的表单,添加registerClass到我的表单单元的初始化部分,并尝试使用大致以下代码手动加载 BPL 文件:

var
  frmHost
  : THandle;

  frmClass
  : TPersistentClass;

begin
  frmHost := LoadPackage(PChar(ExtractFilePath(ParamStr(0)) + 'frm.170.bpl'));
  if frmHost = 0 then //...

  frmClass := GetClass('TForm1');
  if frmClass = nil then // ...

  with TComponentClass(frmClass).Create(nil) as TCustomForm do
  begin
    ShowModal;
    Free;
  end;
end.

当我运行应用程序时,它会在线停止with TComponentClass(...并告诉我

Exception-Class EResNotFound with Message 'Resource TForm1 not found'

我缺少什么(卸载和清理除外)?

4

0 回答 0