C
ccw77128
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure ModuleUnload(Module: Integer);
var
I: Integer;
begin
if IsObject(FCipherList, TStringList) then
for I := FCipherList.Count-1 downto 0 do
if FindClassHInstance(TClass(FCipherList.Objects)) = Module then
FCipherList.Delete(I);
end;
initialization
AddModuleUnloadProc(ModuleUnload);
finalization
RemoveModuleUnloadProc(ModuleUnload);
end.
var
I: Integer;
begin
if IsObject(FCipherList, TStringList) then
for I := FCipherList.Count-1 downto 0 do
if FindClassHInstance(TClass(FCipherList.Objects)) = Module then
FCipherList.Delete(I);
end;
initialization
AddModuleUnloadProc(ModuleUnload);
finalization
RemoveModuleUnloadProc(ModuleUnload);
end.