diff --git a/MiniCompressor.dproj b/MiniCompressor.dproj
index ea4ded1..50c256c 100644
--- a/MiniCompressor.dproj
+++ b/MiniCompressor.dproj
@@ -130,10 +130,10 @@
true
1033
2025
- CompanyName=FileForums.Com;FileDescription=$(MSBuildProjectName);FileVersion=2025.9.3.0;InternalName=;LegalCopyright=Created by Carldric Clement;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+ CompanyName=FileForums.Com;FileDescription=$(MSBuildProjectName);FileVersion=2025.11.17.0;InternalName=;LegalCopyright=Created by Carldric Clement;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
MiniCompressor_Icon1.ico
- 9
- 3
+ 11
+ 17
true
diff --git a/MiniCompressor.dproj.local b/MiniCompressor.dproj.local
index 050cbad..25aa23c 100644
--- a/MiniCompressor.dproj.local
+++ b/MiniCompressor.dproj.local
@@ -2,7 +2,7 @@
2023/01/14 19:54:44.000.804,=E:\Doc\Mini Compressor\Unit5.pas
- 2023/01/14 19:55:07.000.590,E:\Doc\Mini Compressor\XHashNet.pas=E:\Doc\Mini Compressor\Unit5.pas
+ 2023/01/14 19:55:07.000.590,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\XHashNet.pas
2023/01/14 20:01:38.000.543,E:\Doc\Mini Compressor\XHashNet.pas=
2023/01/14 20:02:02.000.157,=E:\Doc\Mini Compressor\FMX.ApplicationHelper.pas
2023/01/14 20:02:07.000.410,=E:\Doc\Mini Compressor\uTotalCpuUsagePct.pas
@@ -10,23 +10,23 @@
2023/01/14 20:04:58.000.245,=E:\Doc\Mini Compressor\Unit5.pas
2023/01/14 20:07:58.000.922,=E:\Doc\Mini Compressor\Unit5.pas
2023/01/15 11:04:51.000.811,=E:\Doc\Mini Compressor\Unit6.pas
- 2023/01/15 11:05:16.000.965,E:\Doc\Mini Compressor\AIO_FP.pas=E:\Doc\Mini Compressor\Unit6.pas
+ 2023/01/15 11:05:16.000.965,E:\Doc\Mini Compressor\Unit6.pas=E:\Doc\Mini Compressor\AIO_FP.pas
2023/01/15 11:24:18.000.502,E:\Doc\Mini Compressor\Unit5.pas=
2023/01/15 11:24:53.000.889,=E:\Doc\Mini Compressor\Unit6.pas
- 2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\Unit6.pas
- 2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit5.fmx=E:\Doc\Mini Compressor\Unit6.fmx
+ 2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit6.pas=E:\Doc\Mini Compressor\Unit5.pas
+ 2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit6.fmx=E:\Doc\Mini Compressor\Unit5.fmx
2023/01/15 11:35:14.000.547,E:\Doc\Mini Compressor\Unit5.pas=
2023/01/15 11:35:16.000.548,E:\Doc\Mini Compressor\XHashNet.pas=
2023/01/15 23:17:30.000.986,=E:\Doc\Mini Compressor\Unit5.pas
- 2023/01/15 23:18:02.000.503,E:\Doc\Mini Compressor\XHashNet.pas=E:\Doc\Mini Compressor\Unit5.pas
+ 2023/01/15 23:18:02.000.503,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\XHashNet.pas
2023/01/15 23:49:30.000.042,=E:\Doc\Mini Compressor\Unit5.pas
- 2023/01/15 23:49:47.000.548,E:\Doc\Mini Compressor\CmdOut.pas=E:\Doc\Mini Compressor\Unit5.pas
+ 2023/01/15 23:49:47.000.548,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\CmdOut.pas
2023/01/16 15:24:03.000.953,=E:\Doc\Mini Compressor\Unit5.pas
2023/01/20 00:39:36.000.032,=E:\Doc\Mini Compressor\Unit6.pas
2023/01/20 00:58:59.000.933,E:\Doc\Mini Compressor\Unit6.pas=
2023/03/07 14:19:40.000.722,E:\Doc\Mini Compressor\AIO_FP.pas=
2023/03/07 14:20:21.000.202,=E:\Doc\Mini Compressor\AIO_FP.pas
- 2023/03/07 14:36:14.000.171,E:\Doc\Mini Compressor\MC_DLL.pas=E:\Doc\Mini Compressor\AIO_FP.pas
+ 2023/03/07 14:36:14.000.171,E:\Doc\Mini Compressor\AIO_FP.pas=E:\Doc\Mini Compressor\MC_DLL.pas
2023/03/07 15:35:28.000.414,=E:\Doc\Mini Compressor\bass.pas
2023/03/08 14:28:15.000.130,=E:\Doc\Mini Compressor\Unit6.pas
2023/03/16 22:20:50.000.979,=E:\Doc\Mini Compressor\Unit7.pas
diff --git a/MiniCompressor.identcache b/MiniCompressor.identcache
index aa29376..17ca3f6 100644
Binary files a/MiniCompressor.identcache and b/MiniCompressor.identcache differ
diff --git a/MiniCompressor.res b/MiniCompressor.res
index 29fbd0f..eabd2d0 100644
Binary files a/MiniCompressor.res and b/MiniCompressor.res differ
diff --git a/Unit1.fmx b/Unit1.fmx
index 1681675..596f5b7 100644
--- a/Unit1.fmx
+++ b/Unit1.fmx
@@ -9064,51 +9064,42 @@ object Form1: TForm1
end
end
end
- object CheckBox6: TCheckBox
- Position.X = 11.000000000000000000
- Position.Y = 536.000000000000000000
- Size.Width = 89.000000000000000000
- Size.Height = 19.000000000000000000
- Size.PlatformDefault = False
- TabOrder = 6
- Text = 'Use Protect'
- end
object CheckBox7: TCheckBox
- Position.X = 187.000000000000000000
- Position.Y = 536.000000000000000000
+ Position.X = 104.000000000000000000
+ Position.Y = 539.000000000000000000
Size.Width = 49.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
- TabOrder = 7
+ TabOrder = 6
Text = 'SFX'
OnChange = CheckBox7Change
end
object Edit34: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 9
+ TabOrder = 8
Text = 'File.exe'
- Position.X = 235.000000000000000000
+ Position.X = 161.000000000000000000
Position.Y = 536.000000000000000000
Enabled = False
- Size.Width = 465.000000000000000000
+ Size.Width = 539.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
end
object Button37: TButton
Position.X = 707.000000000000000000
Position.Y = 536.000000000000000000
- TabOrder = 10
+ TabOrder = 9
Text = 'Run (CMD)'
TextSettings.Trimming = None
OnClick = Button37Click
end
object CheckBox10: TCheckBox
- Position.X = 99.000000000000000000
- Position.Y = 536.000000000000000000
+ Position.X = 10.000000000000000000
+ Position.Y = 539.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
- TabOrder = 8
+ TabOrder = 7
Text = 'Create MD5'
end
object GroupBox35: TGroupBox
@@ -9118,7 +9109,7 @@ object Form1: TForm1
Size.Height = 112.000000000000000000
Size.PlatformDefault = False
Text = 'Protection'
- TabOrder = 11
+ TabOrder = 10
object CheckBox16: TCheckBox
IsChecked = True
Position.X = 16.000000000000000000
diff --git a/Unit1.pas b/Unit1.pas
index 0f5f5d2..6cd0cc2 100644
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -128,7 +128,6 @@ type
GroupBox29: TGroupBox;
Edit37: TEdit;
ClearEditButton33: TClearEditButton;
- CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
Edit34: TEdit;
Button37: TButton;
@@ -1612,7 +1611,7 @@ var
FA_Split: TMemo;
FA_Exec: PChar;
SFXOutput, SFXCommand: string;
- SFX_Confirm: Boolean;
+ SFX_Confirm, UNARC_Protect: Boolean;
begin
case CheckBox7.IsChecked of
True:
@@ -1664,14 +1663,17 @@ begin
FA_Handle := FmxHandleToHWND(Handle);
FA_Error := False;
- case CheckBox6.IsChecked of
+ if IniRead(GetAnySource('..\Resources\UnArc.Ini'), 'Config_UnArc', 'Protect') = '1' then
+ UNARC_Protect:= True else UNARC_Protect:= False;
+
+ case UNARC_Protect of
True:
begin
- FA_Exec := GetAnySource('..\Compression\FreeArc\Arc_P.exe');
+ FA_Exec:= PChar(IniRead(GetAnySource('..\Resources\UnArc.Ini'), 'Exec_Unarc', 'Protect'));
end;
False:
begin
- FA_Exec := GetAnySource('..\Compression\FreeArc\Arc.exe');
+ FA_Exec:= PChar(IniRead(GetAnySource('..\Resources\UnArc.Ini'), 'Exec_Unarc', 'None'));
end;
end;
@@ -2197,7 +2199,7 @@ var
FA_Split: TMemo;
FA_Exec: PChar;
SFXOutput, SFXCommand: string;
- SFX_Confirm: Boolean;
+ SFX_Confirm, UNARC_Protect: Boolean;
begin
case CheckBox7.IsChecked of
True:
@@ -2235,14 +2237,17 @@ begin
Application.ProcessMessages;
Sleep(150);
- case CheckBox6.IsChecked of
+ if IniRead(GetAnySource('..\Resources\UnArc.Ini'), 'Config_UnArc', 'Protect') = '1' then
+ UNARC_Protect:= True else UNARC_Protect:= False;
+
+ case UNARC_Protect of
True:
begin
- FA_Exec := GetAnySource('..\Compression\FreeArc\Arc_P.exe');
+ FA_Exec:= PChar(IniRead(GetAnySource('..\Resources\UnArc.Ini'), 'Exec_Unarc', 'Protect'));
end;
False:
begin
- FA_Exec := GetAnySource('..\Compression\FreeArc\Arc.exe');
+ FA_Exec:= PChar(IniRead(GetAnySource('..\Resources\UnArc.Ini'), 'Exec_Unarc', 'None'));
end;
end;
diff --git a/Unit8.pas b/Unit8.pas
index c19004c..8ed9003 100644
--- a/Unit8.pas
+++ b/Unit8.pas
@@ -102,6 +102,7 @@ begin
Speed := 0.15;
PointIn := NullPoint3D;
RandSeed:= 23;
+ RoundCube1.AutoCapture:= True;
NextLevel;
end;