Forum: Object-Pascal / Delphi-Language
Delphi
by andreash,
5. Jul 2006
Vielleicht funktioniert es so
function TTWPluginManager.UnloadAllPlugins: Boolean;
Var
i: Integer;
LHandle: THandle;
LPlugin: ITWPlugin;
begin
for i := FPlugins.Count - 1 downto 0 do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by andreash,
25. Jun 2006
Hallo!
Meine Vermutung ist, dass die Zeile
LHandle := (FPlugins.Items as ITWPlugin).Handle;
den Fehler verursacht. Der Referenzzähler müsste beim Ausführen hochgezählt werden und wird wohl erst nach Beenden der Routine frei gegeben.
Versuche es doch einmal so: