Vichingo455-RePacks/xtool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

update to 0.6.9

Browse Source
This commit is contained in:
Razor12911
2022-12-22 10:03:17 +02:00
parent 5c4cd7a5b0
commit 722279aad5
31 changed files with 8425 additions and 217 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
imports/LZ4DLL.pas
View File

@@ -3,7 +3,7 @@ unit LZ4DLL;
interface
uses
LibImport,
Utils, LibImport,
WinAPI.Windows,
System.SysUtils, System.Math;
@@ -271,7 +271,7 @@ var
procedure Init(Filename: String);
begin
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + Filename);
Lib := TLibImport.Create(ExpandPath(Filename));
if Lib.Loaded then
begin
@LZ4_decompress_safe := Lib.GetProcAddr('LZ4_decompress_safe');
@@ -311,7 +311,8 @@ begin
end;
const
DLLParam = '--lz4=';
DLLParam1 = '--lz4=';
DLLParam2 = '-l4';
var
I: Integer;
@@ -321,11 +322,18 @@ initialization
DLLFile := 'liblz4.dll';
for I := 1 to ParamCount do
if ParamStr(I).StartsWith(DLLParam) then
begin
if ParamStr(I).StartsWith(DLLParam1) then
begin
DLLFile := ParamStr(I).Substring(DLLParam.Length);
DLLFile := ParamStr(I).Substring(DLLParam1.Length);
break;
end;
if ParamStr(I).StartsWith(DLLParam2) then
begin
DLLFile := ParamStr(I).Substring(DLLParam2.Length);
break;
end;
end;
Init(DLLFile);

19
imports/LZODLL.pas
View File

@@ -3,7 +3,7 @@ unit LZODLL;
interface
uses
LibImport,
Utils, LibImport,
WinAPI.Windows,
System.SysUtils;
@@ -70,7 +70,7 @@ var
procedure Init(Filename: String);
begin
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + Filename);
Lib := TLibImport.Create(ExpandPath(Filename));
if Lib.Loaded then
begin
@lzo1x_1_compress := Lib.GetProcAddr('lzo1x_1_compress');
@@ -94,7 +94,8 @@ begin
end;
const
DLLParam = '--lzo=';
DLLParam1 = '-lzo=';
DLLParam2 = '-lo';
var
I: integer;
@@ -104,11 +105,19 @@ initialization
DLLFile := 'lzo2.dll';
for I := 1 to ParamCount do
if ParamStr(I).StartsWith(DLLParam) then
begin
if ParamStr(I).StartsWith(DLLParam1) then
begin
DLLFile := ParamStr(I).Substring(DLLParam.Length);
DLLFile := ParamStr(I).Substring(DLLParam1.Length);
break;
end;
if ParamStr(I).StartsWith(DLLParam2) then
begin
DLLFile := ParamStr(I).Substring(DLLParam2.Length);
break;
end;
end;
Init(DLLFile);
finalization

28
imports/OodleDLL.pas
View File

@@ -3,7 +3,7 @@ unit OodleDLL;
interface
uses
LibImport,
Utils, LibImport,
WinAPI.Windows,
System.SysUtils, System.Types, System.IOUtils;
@@ -82,13 +82,13 @@ var
I: Integer;
C: Cardinal;
begin
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + Filename);
Lib := TLibImport.Create(ExpandPath(Filename));
if not Lib.Loaded then
for I := 3 to 9 do
for I := 1 to 9 do
begin
Lib.Free;
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + 'oo2core_' +
I.ToString + '_win64.dll');
Lib := TLibImport.Create(ExpandPath('oo2core_' + I.ToString +
'_win64.dll'));
if Lib.Loaded then
break;
end;
@@ -96,8 +96,8 @@ begin
for I := 3 to 9 do
begin
Lib.Free;
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + 'oo2ext_' +
I.ToString + '_win64.dll');
Lib := TLibImport.Create(ExpandPath('oo2ext_' + I.ToString +
'_win64.dll'));
if Lib.Loaded then
break;
end;
@@ -202,7 +202,8 @@ begin
end;
const
DLLParam = '--oodle=';
DLLParam1 = '--oodle=';
DLLParam2 = '-od';
var
I: Integer;
@@ -212,11 +213,18 @@ initialization
DLLFile := 'oo2core_9_win64.dll';
for I := 1 to ParamCount do
if ParamStr(I).StartsWith(DLLParam) then
begin
if ParamStr(I).StartsWith(DLLParam1) then
begin
DLLFile := ParamStr(I).Substring(DLLParam.Length);
DLLFile := ParamStr(I).Substring(DLLParam1.Length);
break;
end;
if ParamStr(I).StartsWith(DLLParam2) then
begin
DLLFile := ParamStr(I).Substring(DLLParam2.Length);
break;
end;
end;
Init(DLLFile);
finalization

22
imports/ZLibDLL.pas
View File

@@ -3,7 +3,7 @@ unit ZLibDLL;
interface
uses
LibImport,
Utils, LibImport,
WinAPI.Windows,
System.SysUtils, System.Types, System.IOUtils, System.ZLib;
@@ -148,16 +148,16 @@ end;
procedure Init(Filename: String);
begin
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + Filename);
Lib := TLibImport.Create(ExpandPath(Filename));
if not(Lib.Loaded and Assigned(Lib.GetProcAddr('zlibVersion'))) then
begin
Lib.Free;
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + 'zlibwapi.dll');
Lib := TLibImport.Create(ExpandPath('zlibwapi.dll'));
end;
if not(Lib.Loaded and Assigned(Lib.GetProcAddr('zlibVersion'))) then
begin
Lib.Free;
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + 'zlib1.dll');
Lib := TLibImport.Create(ExpandPath('zlib1.dll'));
end;
if Lib.Loaded and Assigned(Lib.GetProcAddr('zlibVersion')) then
begin
@@ -192,7 +192,8 @@ begin
end;
const
DLLParam = '--zlib=';
DLLParam1 = '--zlib=';
DLLParam2 = '-zb';
var
I: integer;
@@ -202,11 +203,18 @@ initialization
DLLFile := 'zlibwapi.dll';
for I := 1 to ParamCount do
if ParamStr(I).StartsWith(DLLParam) then
begin
if ParamStr(I).StartsWith(DLLParam1) then
begin
DLLFile := ParamStr(I).Substring(DLLParam.Length);
DLLFile := ParamStr(I).Substring(DLLParam1.Length);
break;
end;
if ParamStr(I).StartsWith(DLLParam2) then
begin
DLLFile := ParamStr(I).Substring(DLLParam2.Length);
break;
end;
end;
Init(DLLFile);

19
imports/ZSTDDLL.pas
View File

@@ -3,7 +3,7 @@ unit ZSTDDLL;
interface
uses
LibImport,
Utils, LibImport,
WinAPI.Windows,
System.SysUtils;
@@ -147,7 +147,7 @@ var
procedure Init(Filename: String);
begin
Lib := TLibImport.Create(ExtractFilePath(ParamStr(0)) + Filename);
Lib := TLibImport.Create(ExpandPath(Filename));
if Lib.Loaded then
begin
@ZSTD_compress := Lib.GetProcAddr('ZSTD_compress');
@@ -185,7 +185,8 @@ begin
end;
const
DLLParam = '--zstd=';
DLLParam1 = '--zstd=';
DLLParam2 = '-zs';
var
I: Integer;
@@ -195,11 +196,19 @@ initialization
DLLFile := 'libzstd.dll';
for I := 1 to ParamCount do
if ParamStr(I).StartsWith(DLLParam) then
begin
if ParamStr(I).StartsWith(DLLParam1) then
begin
DLLFile := ParamStr(I).Substring(DLLParam.Length);
DLLFile := ParamStr(I).Substring(DLLParam1.Length);
break;
end;
if ParamStr(I).StartsWith(DLLParam2) then
begin
DLLFile := ParamStr(I).Substring(DLLParam2.Length);
break;
end;
end;
Init(DLLFile);
finalization