Hallo Zusammen ich habe in einer
dll einen Typ
TYPELIB eingefügt.
dort sind TLBs auf DElphi
ActiveX typen und auch Assembly Typelibs.
Ich rufe diese Routine auf.
Delphi-Quellcode:
for i := 0
to FExeFile.Resources.Count -1
do
begin
if (Uppercase(FExeFile.Resources.Items[i].
Name) = '
TYPELIB')
then
begin
for j := 0
to FExeFile.Resources.Items[i].List.Count-1
do
begin
AppName := ExtractFilePath(Application.ExeName)+'
ccimages.dll\' + FExeFile.Resources.Items[i].list.Items[j].
Name;
try
OleCheck(LoadTypeLib(PWideChar(AppName), tlib));
OleCheck(RegisterTypeLib(tlib, PWideChar(AppName),
nil));
except
on e:
Exception do
begin
ShowMessage(Format(strExRegFailure,[j+1,E.
Message]));
end;
end;
end;
end;
end;
bei
Win32 Typelibs klappt das auch alles.
Nur wenn ich ASsemblys als Typelib reinsetze nicht mehr.
ich habe den Source TREGSVR durchstöbert und dort einiges gefunden, nur muss bei dem Aufruf die assemlbyTypelib als Datei vorliegen.
Wie kann ich das anpassen, dass ich die Typelib aus einer Resource in einer
DLL registriert bekomme ??