Hi,
ich versuche Komponenten über dlls zu registrieren, damit ich die Komponenten-Verwaltung meines
DFM-Editors modular erweitern kann.
Mein bisheriger Versuch:
Delphi-Quellcode:
//dll-code
uses
...,extCtrls;
procedure registerComp;
begin
RegisterClass(TShape);
end;
exports
registerComp;
//Host-code
type
RegisterComp=
procedure;
...
procedure TForm1.Button1Click(Sender: TObject);
var h:THandle;
p:RegisterComp;
begin
h:=LoadLibrary('
dll_p.dll');
@p:=GetProcAddress(h,'
registerComp');
if assigned(p)
then
begin
p;
end;
if assigned(getclass('
TShape'))
then
showmessage('
funktioniert')
else
showmessage('
funktioniert nicht');
freelibrary(h);
end;
die
DLL-Procedure wird ausgeführt, jedoch ist die klasse nicht registriert (bzw. nur innerhalb des
DLL-Adressraumes registriert), denn ich bekomme die Meldung "Funktioniert nicht"...
Jemand eine Idee, wie man das bewerkstelligen kann?
Gruß Frank