registerassembly aus einerdll registrieren.

[Digielm]

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 ??