mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: SevenZip - crash on exit

Browse source
This commit is contained in:
Alexander Koblov 2024-11-25 23:57:56 +03:00
commit 8b8dff2137
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
plugins/wcx/sevenzip/src/SevenZipCodecs.pas
View file

@ -348,14 +348,17 @@ procedure Finish;
var
Index: Integer;
begin
if Assigned(ALibraries) then begin
if Assigned(ALibraries) then
begin
for Index:= 0 to ALibraries.Count - 1 do
begin
if Assigned(ALibraries[Index].SetCodecs) then
ALibraries[Index].SetCodecs(nil);
FreeLibrary(ALibraries[Index].Handle);
end;
ALibraries.Free;
end;
ACodecs.Free;
end;
finalization

5
plugins/wcx/sevenzip/src/SevenZipFunc.pas
View file

@ -122,7 +122,7 @@ type
end;
var
PasswordCache: TPasswordCache;
PasswordCache: TPasswordCache = nil;
threadvar
ProcessDataProcT: TProcessDataProcW;
@ -778,5 +778,8 @@ begin
inherited Destroy;
end;
finalization
PasswordCache.Free;
end.

3
plugins/wcx/sevenzip/src/SevenZipLng.pas
View file

@ -69,5 +69,8 @@ begin
end;
end;
finalization
FinalizeResourceTables;
end.