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

ADD: SevenZip - long file name support

Browse source
This commit is contained in:
Alexander Koblov 2024-11-04 21:27:21 +03:00
commit 36378feaa6
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
plugins/wcx/sevenzip/src/SevenZipOpt.pas
View file

@ -27,7 +27,7 @@ unit SevenZipOpt;
interface
uses
Classes, SysUtils, Windows, IniFiles, JclCompression, SevenZip;
Classes, SysUtils, Windows, DCClassesUtf8, JclCompression, SevenZip;
const
cKilo = 1024;
@ -450,12 +450,12 @@ end;
procedure LoadConfiguration;
var
Ini: TIniFile;
Ini: TIniFileEx;
Section: AnsiString;
ArchiveFormat: TArchiveFormat;
begin
try
Ini:= TIniFile.Create(ConfigFile);
Ini:= TIniFileEx.Create(ConfigFile);
try
LibraryPath:= Ini.ReadString('Library', TargetCPU, EmptyStr);
LibraryPath:= mbExpandEnvironmentStrings(LibraryPath);
@ -481,12 +481,12 @@ end;
procedure SaveConfiguration;
var
Ini: TIniFile;
Ini: TIniFileEx;
Section: AnsiString;
ArchiveFormat: TArchiveFormat;
begin
try
Ini:= TIniFile.Create(ConfigFile);
Ini:= TIniFileEx.Create(ConfigFile);
try
for ArchiveFormat:= Low(TArchiveFormat) to High(TArchiveFormat) do
begin