Problème avec GetClass

Dans le Unit de mon package FilssP, J'ai une class TMonFils auquel je voudrais acceder à partir de mon programme principal.
pour cela, dans le Unit, je recense la classe

Code:

---

1 2	initialization RegisterClass(TMonFils);

---

Et Dans mon programme principal je fais

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); Var TLaClass: TClass; LaClass: TForm; HHandle: THandle; begin HHandle := LoadPackage('FilssP.bpl'); TLaClass := GetClass('TMonFils'); MessageDlg('La Classe est:'+TLaClass.ClassName, mtInformation,[mbOk], 0); End;

---

Il ya generation d'erreur parcequ'il n'a pas acces à la classe
ce qui signifie que classe recensée n'a pas pue être récupérée par la methode GetClass.
Je ne sais pas pourquoi ??????

Sous D6, j'ai déjà eu ce problème lorsque le projet n'est pas construit avec les paquets d'execution (menu Projet/Options, onglet Paquets)

Bloon

Ah Oui, Merçi.
Effectivement ça marche.
Aussi je constate que l'EXE qui en résulte est moins lourd: 15 Ko au lieu de 300 Ko.
Cela n'exigera-t-il pas de fichiers suplémentaires lors du déploiement?
si oui lesquels?

Citation:

---

Cela n'exigera-t-il pas de fichiers suplémentaires lors du déploiement?

---

Oui, les bpl indiqués dans la zone en-dessous de la case à cocher. Pas tous, ça dépend de ce que tu utilises dans ton application.

Bloon

Je vois.
Merçi bien.