Delphi里如何动态调用BPL?

问答知识库用户 |浏览336次
收藏|2014/05/17 22:00
如题,是否可以给个DEMO!

满意回答

2014/05/17 22:00

var
  DemoForm: TForm;
  HModule1: HMODULE;
  FullFilePath: string;
  aClass: TFormClass;
begin
  FullFilePath := ExtractFilePath(paramstr(0)) + 'Package1.bpl';
  HModule1 := LoadPackage(FullFilePath);
  try
    if HModule1 <> 0 then
    begin
      aClass := TFormClass(findclass('TfrmTestBplForm'));
      DemoForm := aClass.Create(Application);
      DemoForm.Show;
    end;
  finally
    UnLoadPackage(HModule1);
  end;
end;
BPL Form里面要进行注册!
initialization
RegisterClass(TfrmTestBplForm);
finalization
UnRegisterClass(TfrmTestBplForm);

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...