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: Bug [0001183] 'Test Archive', don't show an error message

Browse source
This commit is contained in:
Alexander Koblov 2015-09-29 18:22:04 +00:00
commit 6f7865eb84
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -243,7 +243,7 @@ begin
if OpenMode = PK_OM_EXTRACT then
begin
Start;
Result:= Update;
Update;
end;
FArchive.Free;
Free;
@ -536,7 +536,10 @@ begin
ReturnValue:= E_SUCCESS;
except
on E: Exception do
begin
ReturnValue:= GetArchiveError(E);
MessageBox(0, PAnsiChar(E.Message), nil, MB_OK or MB_ICONERROR);
end;
end;
Terminate;
FProgress.SetEvent;