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