From f76424d68f4b652c1f9355f62340228dc436bc45 Mon Sep 17 00:00:00 2001 From: Carldric Clement <46277745+CarldricGaming@users.noreply.github.com> Date: Mon, 17 Nov 2025 00:25:59 +0800 Subject: [PATCH] update --- MiniCompressor.dproj | 6 +++--- MiniCompressor.dproj.local | 14 +++++++------- MiniCompressor.identcache | Bin 589 -> 845 bytes MiniCompressor.res | Bin 71936 -> 71940 bytes Unit1.fmx | 31 +++++++++++-------------------- Unit1.pas | 23 ++++++++++++++--------- Unit8.pas | 1 + 7 files changed, 36 insertions(+), 39 deletions(-) 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 aa293767e27560abeebf30355106fa581dcd02b7..17ca3f6a5ecf043b0c41e544f64b1a3ac3186128 100644 GIT binary patch literal 845 zcmb8sy$ZrG6b0Zuf)AnM(m>Vvw@IpWXw|_&hk(R3XrN6(lD@xnsc?mqWXkg0b1ruh z1VMZ{kVIA_=Yoe=wn{T&qz+rk1v%#>Ix5xhidrs3${NKqQq=Ttcr(|8LU0>-iwzXW zmGQ0qYmREAhi?66?xMJ@ubqWyqZ=)~MGVElRjW*?d0&`+u|13#U1bNw)K%&8v?kDHihkLv)L1V} bokvvt9?U|cW0R(Ob{4VjbH<%4vBlyKBcOut diff --git a/MiniCompressor.res b/MiniCompressor.res index 29fbd0fcddbd92f4ce65cefedf3a3572418a6ff3..eabd2d0cd798f52bab85823e0136fabedf7a6931 100644 GIT binary patch delta 66 zcmZqJ#L}{fWr70ZnTd+>K*CX2dWr70ZiHVBxK*CX2=z&$ycQJvM2 RL65<>c{1bn$&8GJ;s8Yh5fK0Y 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;