update

2026-08-23 02:26:04 -04:00 · 2025-11-17 00:25:59 +08:00 · 2025-11-17 00:25:59 +08:00 · f76424d68f
commit f76424d68f
parent a3791781b1
7 changed files with 36 additions and 39 deletions
--- a/MiniCompressor.dproj
+++ b/MiniCompressor.dproj
@ -130,10 +130,10 @@
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <VerInfo_MajorVer>2025</VerInfo_MajorVer>
-        <VerInfo_Keys>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=</VerInfo_Keys>
+        <VerInfo_Keys>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=</VerInfo_Keys>
        <Icon_MainIcon>MiniCompressor_Icon1.ico</Icon_MainIcon>
-        <VerInfo_MinorVer>9</VerInfo_MinorVer>
-        <VerInfo_Release>3</VerInfo_Release>
+        <VerInfo_MinorVer>11</VerInfo_MinorVer>
+        <VerInfo_Release>17</VerInfo_Release>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
--- a/MiniCompressor.dproj.local
+++ b/MiniCompressor.dproj.local
@ -2,7 +2,7 @@
 <BorlandProject>
 	<Transactions>
    <Transaction>2023/01/14 19:54:44.000.804,=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
-    <Transaction>2023/01/14 19:55:07.000.590,E:\Doc\Mini Compressor\XHashNet.pas=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
+    <Transaction>2023/01/14 19:55:07.000.590,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\XHashNet.pas</Transaction>
    <Transaction>2023/01/14 20:01:38.000.543,E:\Doc\Mini Compressor\XHashNet.pas=</Transaction>
    <Transaction>2023/01/14 20:02:02.000.157,=E:\Doc\Mini Compressor\FMX.ApplicationHelper.pas</Transaction>
    <Transaction>2023/01/14 20:02:07.000.410,=E:\Doc\Mini Compressor\uTotalCpuUsagePct.pas</Transaction>
@ -10,23 +10,23 @@
    <Transaction>2023/01/14 20:04:58.000.245,=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
    <Transaction>2023/01/14 20:07:58.000.922,=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
    <Transaction>2023/01/15 11:04:51.000.811,=E:\Doc\Mini Compressor\Unit6.pas</Transaction>
-    <Transaction>2023/01/15 11:05:16.000.965,E:\Doc\Mini Compressor\AIO_FP.pas=E:\Doc\Mini Compressor\Unit6.pas</Transaction>
+    <Transaction>2023/01/15 11:05:16.000.965,E:\Doc\Mini Compressor\Unit6.pas=E:\Doc\Mini Compressor\AIO_FP.pas</Transaction>
    <Transaction>2023/01/15 11:24:18.000.502,E:\Doc\Mini Compressor\Unit5.pas=</Transaction>
    <Transaction>2023/01/15 11:24:53.000.889,=E:\Doc\Mini Compressor\Unit6.pas</Transaction>
-    <Transaction>2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\Unit6.pas</Transaction>
-    <Transaction>2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit5.fmx=E:\Doc\Mini Compressor\Unit6.fmx</Transaction>
+    <Transaction>2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit6.pas=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
+    <Transaction>2023/01/15 11:25:53.000.478,E:\Doc\Mini Compressor\Unit6.fmx=E:\Doc\Mini Compressor\Unit5.fmx</Transaction>
    <Transaction>2023/01/15 11:35:14.000.547,E:\Doc\Mini Compressor\Unit5.pas=</Transaction>
    <Transaction>2023/01/15 11:35:16.000.548,E:\Doc\Mini Compressor\XHashNet.pas=</Transaction>
    <Transaction>2023/01/15 23:17:30.000.986,=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
-    <Transaction>2023/01/15 23:18:02.000.503,E:\Doc\Mini Compressor\XHashNet.pas=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
+    <Transaction>2023/01/15 23:18:02.000.503,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\XHashNet.pas</Transaction>
    <Transaction>2023/01/15 23:49:30.000.042,=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
-    <Transaction>2023/01/15 23:49:47.000.548,E:\Doc\Mini Compressor\CmdOut.pas=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
+    <Transaction>2023/01/15 23:49:47.000.548,E:\Doc\Mini Compressor\Unit5.pas=E:\Doc\Mini Compressor\CmdOut.pas</Transaction>
    <Transaction>2023/01/16 15:24:03.000.953,=E:\Doc\Mini Compressor\Unit5.pas</Transaction>
    <Transaction>2023/01/20 00:39:36.000.032,=E:\Doc\Mini Compressor\Unit6.pas</Transaction>
    <Transaction>2023/01/20 00:58:59.000.933,E:\Doc\Mini Compressor\Unit6.pas=</Transaction>
    <Transaction>2023/03/07 14:19:40.000.722,E:\Doc\Mini Compressor\AIO_FP.pas=</Transaction>
    <Transaction>2023/03/07 14:20:21.000.202,=E:\Doc\Mini Compressor\AIO_FP.pas</Transaction>
-    <Transaction>2023/03/07 14:36:14.000.171,E:\Doc\Mini Compressor\MC_DLL.pas=E:\Doc\Mini Compressor\AIO_FP.pas</Transaction>
+    <Transaction>2023/03/07 14:36:14.000.171,E:\Doc\Mini Compressor\AIO_FP.pas=E:\Doc\Mini Compressor\MC_DLL.pas</Transaction>
    <Transaction>2023/03/07 15:35:28.000.414,=E:\Doc\Mini Compressor\bass.pas</Transaction>
    <Transaction>2023/03/08 14:28:15.000.130,=E:\Doc\Mini Compressor\Unit6.pas</Transaction>
    <Transaction>2023/03/16 22:20:50.000.979,=E:\Doc\Mini Compressor\Unit7.pas</Transaction>
--- a/MiniCompressor.identcache
+++ b/MiniCompressor.identcache
--- a/MiniCompressor.res
+++ b/MiniCompressor.res
--- 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
--- 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;

--- a/Unit8.pas
+++ b/Unit8.pas
@ -102,6 +102,7 @@ begin
  Speed := 0.15;
  PointIn := NullPoint3D;
  RandSeed:= 23;
+  RoundCube1.AutoCapture:= True;
  NextLevel;
 end;