我已经制作了一个表格,我想在 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'
我缺少什么(卸载和清理除外)?