کارنکردن تابع GetClass در پروژه دیگر

[Touska]

سلام

در یک پروژه مثال من یک Package رو لود می کنم و یک فرم آن را GetClass کرده و آن را می سازم.

حالا همن کد را در پروژه اصلی خود که اجرا می کنم اصلا Class را پیدا نمی کنه با Get Class

کد :

تعریفات :

PackageM : HMODULE;
FormClass : TFormClass;
Data2 : TForm;
کد بدنه :


PackageM := LoadPackage('Depot.bpl');
FormClass := TFormClass(GetClass('TFrmDepots'));
IF Assigned(FormClass) Then
Begin
Data2 := FormClass.Create(Application);
Data2.Show;
End;چه مشکلی وجود دارد.

اینم بگه که من کلاس ها را در Bpl خودم در Int رجیستر کردم.