denuvo-ref/Mini-Compressor
1
0
Fork 0
mirror of https://github.com/CarldricGaming/Mini-Compressor synced 2026-08-23 02:26:04 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add files via upload

Browse source 
updated script
This commit is contained in:
Carldric Clement 2025-09-03 13:31:47 +08:00 • committed by GitHub
parent f19af45e81
commit 01dee9a6f4
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
15 changed files with 10708 additions and 10850 deletions
Download patch file Download diff file Expand all files Collapse all files

137
DB_Maker.dproj
View file

@ -1,7 +1,7 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{38A90E90-FD3C-4A27-BC9E-CB5D36770184}</ProjectGuid>
<ProjectVersion>19.5</ProjectVersion>
<ProjectVersion>20.1</ProjectVersion>
<FrameworkType>None</FrameworkType>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
@ -9,6 +9,7 @@
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<MainSource>DB_Maker.dpr</MainSource>
<ProjectName Condition="'$(ProjectName)'==''">DB_Maker</ProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
@ -211,6 +212,16 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDefV21">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
@ -231,6 +242,66 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV31">
<Platform Name="Android">
<RemoteDir>res\values-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIcon">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v26</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v26</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconBackground">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconForeground">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconMonochrome">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconV33">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v33</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v33</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
@ -241,6 +312,16 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_ColorsDark">
<Platform Name="Android">
<RemoteDir>res\values-night-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-night-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
@ -411,6 +492,56 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedNotificationIcon">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v24</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v24</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplash">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashDark">
<Platform Name="Android">
<RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashV31">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashV31Dark">
<Platform Name="Android">
<RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
@ -651,6 +782,9 @@
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64x">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
@ -944,6 +1078,7 @@
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>

2
DB_Maker.dproj.local
View file

@ -2,6 +2,6 @@
<BorlandProject>
<Transactions>
<Transaction>2022/07/20 20:17:24.000.179,=C:\Users\Alvin\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2023/03/18 22:40:14.000.257,C:\Users\carld\Documents\Embarcadero\Studio\Projects\Project1.dproj=E:\Doc\Mini Compressor\DB_Maker.dproj</Transaction>
<Transaction>2023/03/18 22:40:14.000.257,E:\Doc\Mini Compressor\DB_Maker.dproj=C:\Users\carld\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
</Transactions>
</BorlandProject>

BIN
DB_Maker.res
View file

Binary file not shown.

149
MiniCompressor.dproj
View file

@ -1,7 +1,7 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{4F8C3FC2-26FD-46A4-8932-E98882C8C834}</ProjectGuid>
<ProjectVersion>19.5</ProjectVersion>
<ProjectVersion>20.1</ProjectVersion>
<FrameworkType>FMX</FrameworkType>
<MainSource>MiniCompressor.dpr</MainSource>
<Base>True</Base>
@ -9,6 +9,7 @@
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>
<ProjectName Condition="'$(ProjectName)'==''">MiniCompressor</ProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
@ -128,11 +129,11 @@
<DCC_ExeOutput>.\$(Config)\Bin\</DCC_ExeOutput>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_MajorVer>2024</VerInfo_MajorVer>
<VerInfo_Keys>CompanyName=FileForums.Com;FileDescription=$(MSBuildProjectName);FileVersion=2024.7.8.0;InternalName=;LegalCopyright=Created by Carldric Clement;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<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>
<Icon_MainIcon>MiniCompressor_Icon1.ico</Icon_MainIcon>
<VerInfo_MinorVer>7</VerInfo_MinorVer>
<VerInfo_Release>8</VerInfo_Release>
<VerInfo_MinorVer>9</VerInfo_MinorVer>
<VerInfo_Release>3</VerInfo_Release>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
@ -204,8 +205,8 @@
<Source Name="MainSource">MiniCompressor.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="4">
@ -322,6 +323,16 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDefV21">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
@ -342,6 +353,66 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV31">
<Platform Name="Android">
<RemoteDir>res\values-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIcon">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v26</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v26</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconBackground">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconForeground">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconMonochrome">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconV33">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v33</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v33</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
@ -352,6 +423,16 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_ColorsDark">
<Platform Name="Android">
<RemoteDir>res\values-night-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-night-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
@ -522,6 +603,56 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedNotificationIcon">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v24</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v24</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplash">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashDark">
<Platform Name="Android">
<RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashV31">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashV31Dark">
<Platform Name="Android">
<RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
@ -762,6 +893,9 @@
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64x">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
@ -1055,6 +1189,7 @@
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>

14
MiniCompressor.dproj.local
View file

@ -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\Unit5.pas=E:\Doc\Mini Compressor\XHashNet.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 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\Unit6.pas=E:\Doc\Mini Compressor\AIO_FP.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: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\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: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: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\Unit5.pas=E:\Doc\Mini Compressor\XHashNet.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:49:30.000.042,=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/15 23:49:47.000.548,E:\Doc\Mini Compressor\CmdOut.pas=E:\Doc\Mini Compressor\Unit5.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\AIO_FP.pas=E:\Doc\Mini Compressor\MC_DLL.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 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>

BIN
MiniCompressor.identcache
View file

Binary file not shown.

BIN
MiniCompressor.res
View file

Binary file not shown.

137
MiniCompressor_Library.dproj
View file

@ -7,8 +7,9 @@
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.5</ProjectVersion>
<ProjectVersion>20.1</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<ProjectName Condition="'$(ProjectName)'==''">MiniCompressor_Library</ProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
@ -214,6 +215,16 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDefV21">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
@ -234,6 +245,66 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV31">
<Platform Name="Android">
<RemoteDir>res\values-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIcon">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v26</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v26</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconBackground">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconForeground">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconMonochrome">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_AdaptiveIconV33">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v33</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v33</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
@ -244,6 +315,16 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_ColorsDark">
<Platform Name="Android">
<RemoteDir>res\values-night-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-night-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
@ -414,6 +495,56 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedNotificationIcon">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v24</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v24</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplash">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashDark">
<Platform Name="Android">
<RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-night-anydpi-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashV31">
<Platform Name="Android">
<RemoteDir>res\drawable-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_VectorizedSplashV31Dark">
<Platform Name="Android">
<RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-night-anydpi-v31</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
@ -591,6 +722,9 @@
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64x">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
@ -852,6 +986,7 @@
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
</Deployment>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>

2
MiniCompressor_Library.dproj.local
View file

@ -3,8 +3,8 @@
<Transactions>
<Transaction>2023/03/07 14:35:22.000.081,E:\Doc\Mini Compressor\MC_Ini.dproj=E:\Doc\Mini Compressor\MiniCompressor_Library.dproj</Transaction>
<Transaction>2023/11/23 11:46:05.000.928,=E:\Doc\MC_2\Unit9.pas</Transaction>
<Transaction>2023/11/23 11:46:32.000.258,E:\Doc\MC_2\Unit9.pas=E:\Doc\MC_2\MiniCompressor_Library_FormMemo.pas</Transaction>
<Transaction>2023/11/23 11:46:32.000.258,E:\Doc\MC_2\Unit9.dfm=E:\Doc\MC_2\MiniCompressor_Library_FormMemo.dfm</Transaction>
<Transaction>2023/11/23 11:46:32.000.258,E:\Doc\MC_2\Unit9.pas=E:\Doc\MC_2\MiniCompressor_Library_FormMemo.pas</Transaction>
<Transaction>2023/11/23 13:15:58.000.696,=E:\Doc\MC_2\MiniCompressor_Library_FormMemo.pas</Transaction>
<Transaction>2023/11/23 13:16:28.000.895,E:\Doc\MC_2\MiniCompressor_Library_FormMemo.pas=</Transaction>
</Transactions>

BIN
MiniCompressor_Library.res
View file

Binary file not shown.

9
Solution.bat Normal file
View file

@ -0,0 +1,9 @@
@echo off
// Compression\7-Zip\7z.exe a -bb3 -r0 -mx9 -v2g "myfile.7z" "E:\GameDB\*"
uha.exe a -r+ -ed- -p- -mx -mm+ -md+ -md32768 -b32768 Setup.db "ISDone_resource\*" @ISD_List.txt
uha.exe a -r+ -ed- -p- -mx -mm+ -md+ -md32768 -b32768 Setup.db "ISDone_resource\*" @ISD_List_Manual_SFX.txt
pause

20953
Unit1.fmx
View file

File diff suppressed because it is too large Load diff

148
Unit1.pas
View file

@ -92,7 +92,6 @@ type
CheckBox2: TCheckBox;
Edit14: TEdit;
ClearEditButton12: TClearEditButton;
CheckBox5: TCheckBox;
Button36: TButton;
TabItem3: TTabItem;
Edit6: TEdit;
@ -378,6 +377,8 @@ type
Edit48: TEdit;
TrackBar1: TTrackBar;
TrackBar2: TTrackBar;
MenuItem14: TMenuItem;
MenuItem15: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure SearchEditButton1Click(Sender: TObject);
procedure SearchEditButton2Click(Sender: TObject);
@ -829,7 +830,7 @@ begin
Application.ProcessMessages;
Sleep(150);
IMG_Handle := FmxHandleToHWND(TWindowHandle(Form1));
IMG_Handle := FmxHandleToHWND(Handle);
IMG_Error := False;
ISCmdInit(IMG_Handle);
@ -883,6 +884,9 @@ var
FA_Solo: TMemo;
DateAndTimeZ: TDateTime;
SFXOutput, SFXCommand: string;
FA_Location: boolean;
UNARC_Protect: boolean;
begin
TabControl2.TabIndex := 1;
Button2.Visible:= False;
@ -919,6 +923,9 @@ begin
SFXOutput := '';
end;
if (Edit1.Text <> '') or (Edit2.Text <> '') then
FA_Location:= True else FA_Location:= False;
Application.ProcessMessages;
Sleep(150);
@ -962,17 +969,20 @@ begin
Memo2.Lines.Add(' Method: ' +FA_Method);
Memo2.GoToTextEnd;
FA_Handle := TWinWindowHandle(Form1).Wnd;
FA_Handle := FmxHandleToHWND(Handle);
FA_Error := False;
case CheckBox5.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;
@ -988,10 +998,18 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(FA_Handle, GetAnySource('Cmd_MiniCompressor.exe'), GetAnySource('Run_FA.bat'), '');
Memo1.Lines.LoadFromFile('MC_CMD_Log.txt');
DeleteFile('MC_CMD_Log.txt');
Edit6.Text:= 'Processing...';
if FA_Location = True then
begin
ExecAndWait(FA_Handle, GetAnySource('Cmd_MiniCompressor.exe'), GetAnySource('Run_FA.bat'), '');
Memo1.Lines.LoadFromFile('MC_CMD_Log.txt');
DeleteFile('MC_CMD_Log.txt');
Edit6.Text:= 'Processing...';
end else begin
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
MessageBox(0,'Where''s the Input and Output?'
+#13 +'Please insert it and try again.', 'Failed',
MB_ICONERROR or MB_OK);
end;
Application.ProcessMessages;
Sleep(150);
@ -1070,7 +1088,7 @@ begin
IniCreate('..\Resources\records.ini','Record1','Disk','1');
IniCreate('..\Resources\records.ini','Record1','Password',Edit3.Text);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_SFX2.exe'), '',
GetAnySource('..\Resources'));
@ -1088,8 +1106,8 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
GetAnySource('SFX_Make.bat'), '', GetAnySource(''));
ExecAndWait(FA_Handle, GetAnySource('Cmd_MiniCompressor.exe'), GetAnySource('SFX_Make.bat'), '');
if FileExists(GetAnySource('MC_CMD.ini')) then DeleteFile(GetAnySource('MC_CMD.ini'));
with TMemo.Create(nil) do
begin
@ -1298,7 +1316,7 @@ begin
begin
CopyFile(GetAnySource('..\Resources\IM_Bg2.jpg'),
GetAnySource('..\Installer\Graphics\Background.jpg'), False);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Installer\Compiler.exe'), '',
GetAnySource('..\Installer'));
@ -1307,7 +1325,7 @@ begin
DeleteFile(GetAnySource('..\Installer\Graphics\Background.jpg'));
end else
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Installer\Compiler.exe'), '',
GetAnySource('..\Installer'));
@ -1351,12 +1369,12 @@ begin
MessageBox(0, 'Looks like the file still exist. Would create another one.', 'Resource Exist',
MB_ICONINFORMATION or MB_OK);
DeleteFile(GetAnySource('..\Resources\ISD_List_Manual.ini'));
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_Update.exe'),'',
GetAnySource('..\Resources'));
end
else if not FileExists(GetAnySource('..\Resources\ISD_List_Manual.ini')) then
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_Update.exe'),'',
GetAnySource('..\Resources'))
end;
@ -1425,7 +1443,7 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\7za.exe'),'a -bb3 -r0 -mmt2 -mx9 -pIMP "'
+FileNameProj +'.7z" "' +GetAnySource('..\Resources\Project') +'\*"',
GetAnySource('..\Resources'));
@ -1491,7 +1509,7 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\7za.exe'),'x -pIMP -O"'
+GetAnySource('..\Resources\Project') +'" "' +PChar(LoadProj) +'"',
GetAnySource('..\Resources'));
@ -1643,7 +1661,7 @@ begin
Application.ProcessMessages;
Sleep(150);
FA_Handle := TWinWindowHandle(Form1).Wnd;
FA_Handle := FmxHandleToHWND(Handle);
FA_Error := False;
case CheckBox6.IsChecked of
@ -1742,7 +1760,7 @@ begin
True:
begin
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_SFX.exe'), '',
GetAnySource('..\Resources'));
end;
@ -1755,7 +1773,7 @@ begin
'Mini Compressor SFX',
MB_OK or MB_ICONINFORMATION);
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_UpdateSFX.exe'), '',
GetAnySource('..\Resources'));
end;
@ -1898,6 +1916,9 @@ var
FA_Exec: PChar;
DateAndTimeZ: TDateTime;
SFXOutput, SFXCommand: string;
FA_Location: boolean;
UNARC_Protect: boolean;
begin
if CheckBox9.IsChecked = True then
with TForm5.Create(nil) do
@ -1919,6 +1940,9 @@ begin
end;
end;
if (Edit1.Text <> '') or (Edit2.Text <> '') then
FA_Location:= True else FA_Location:= False;
Application.ProcessMessages;
Sleep(150);
@ -1953,14 +1977,17 @@ begin
Application.ProcessMessages;
Sleep(150);
case CheckBox5.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;
@ -1992,8 +2019,16 @@ begin
Sleep(150);
FA_Error := False;
ExecAndWait(TWinWindowHandle(Form1).Wnd,
GetAnySource('Run_FA.bat'), '', GetAnySource(''));
if FA_Location = True then
begin
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('Run_FA.bat'), '', GetAnySource(''));
end else begin
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
MessageBox(0,'Where''s the Input and Output?'
+#13 +'Please insert it and try again.', 'Failed',
MB_ICONERROR or MB_OK);
end;
Application.ProcessMessages;
Sleep(150);
@ -2053,7 +2088,7 @@ begin
IniCreate('..\Resources\records.ini','Record1','Disk','1');
IniCreate('..\Resources\records.ini','Record1','Password',Edit3.Text);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_SFX2.exe'),'',GetAnySource('..\Resources'));
with TMemo.Create(nil) do
@ -2073,8 +2108,8 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
GetAnySource('SFX_Make.bat'),'',GetAnySource(''));
ExecAndWait(FA_Handle, GetAnySource('Cmd_MiniCompressor.exe'), GetAnySource('SFX_Make.bat'), '');
if FileExists(GetAnySource('MC_CMD.ini')) then DeleteFile(GetAnySource('MC_CMD.ini'));
with TMemo.Create(nil) do
begin
@ -2238,7 +2273,7 @@ begin
Sleep(150);
FA_Error := False;
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('Run_FA.bat'),'',GetAnySource(''));
Application.ProcessMessages;
@ -2288,7 +2323,7 @@ begin
True:
begin
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_SFX.exe'), '',
GetAnySource('..\Resources'));
end;
@ -2301,7 +2336,7 @@ begin
'Mini Compressor SFX',
MB_OK or MB_ICONINFORMATION);
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\MC_UpdateSFX.exe'), '',
GetAnySource('..\Resources'));
end;
@ -2438,7 +2473,7 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('Run_7Z.bat'), '', GetAnySource(''));
Error7z:= False;
@ -2486,7 +2521,7 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('SFX_Make.bat'),'',GetAnySource(''));
Application.ProcessMessages;
@ -2722,7 +2757,7 @@ begin
Memo3.Lines.Add(' Method: ' +Method7z);
Memo3.GoToTextEnd;
Handle7z:= TWinWindowHandle(Form1).Wnd;
Handle7z:= FmxHandleToHWND(Handle);
Error7z:= False;
ISCmdInit(Handle7z);
@ -2788,8 +2823,8 @@ begin
Application.ProcessMessages;
Sleep(150);
ExecAndWait(TWinWindowHandle(Form1).Wnd,
GetAnySource('SFX_Make.bat'),'',GetAnySource(''));
ExecAndWait(FmxHandleToHWND(Handle), GetAnySource('Cmd_MiniCompressor.exe'), GetAnySource('SFX_Make.bat'), '');
if FileExists(GetAnySource('MC_CMD.ini')) then DeleteFile(GetAnySource('MC_CMD.ini'));
Application.ProcessMessages;
Sleep(150);
@ -3111,7 +3146,7 @@ begin
ClientWidth:= 1280;
ClientHeight := 720;
BassHandle := TWinWindowHandle(Handle).Wnd;
BassHandle := FmxHandleToHWND(Handle);
BASS_Init(-1, 44100, 0, BassHandle, 0);
BASS_Start();
@ -3141,7 +3176,7 @@ begin
ShowMessage('Done updated.');
end;
BassHandle := TWinWindowHandle(Handle).Wnd;
BassHandle := FmxHandleToHWND(Handle);
BASS_Init(-1, 44100, 0, BassHandle, 0);
BASS_Start();
@ -3566,12 +3601,12 @@ begin
if IC_ConfirmReg = '' then
begin
if IC_CreateShortcut = True then
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\IC_Registry2.exe'),'/verysilent',
GetAnySource('..\Resources'))
else
if IC_CreateShortcut = False then
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\IC_Registry.exe'),'/verysilent',
GetAnySource('..\Resources'));
end;
@ -3620,22 +3655,15 @@ begin
if IC_ConfirmReg2 = True then
begin
IC_Registry := TRegistry.Create(KEY_READ);
with IC_Registry do
begin
RootKey := HKEY_CLASSES_ROOT;
if OpenKey(IC_Root, False) then
DeleteKey('');
if OpenKey(IC_Root2, False) then
DeleteKey('');
Free;
end;
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\IC_Unregistry.exe'), '',
GetAnySource('..\Resources'));
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
MessageBox(0,'Associate ".icp" files was removed', 'Finished',
MB_ICONINFORMATION or MB_OK);
end;
end
else
end else
if IC_ConfirmReg = '' then
begin
sndPlaySound(GetAnySource('..\Resources\MC_OK.wav'),SND_ASYNC);
@ -3722,7 +3750,7 @@ end;
procedure TForm1.MenuItem30Click(Sender: TObject);
begin
ExecAndWait(TWinWindowHandle(Form1).Wnd,
ExecAndWait(FmxHandleToHWND(Handle),
GetAnySource('..\Resources\XTool\XTool_Plugin.exe'), '',
GetAnySource('..\Resources\XTool'));
end;
@ -4061,10 +4089,20 @@ end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
TimeAndDateYo: TDateTime;
MemoryOkay: MEMORYSTATUSEX;
begin
TimeAndDateYo:= Now;
MenuItem3.Text:= DateToStr(TimeAndDateYo) +' | ' +TimeToStr(TimeAndDateYo);
MenuItem31.Text := 'BASS_CPU: ' + FloatToStrF(BASS_GetCPU, ffFixed, 4, 2);
// ===== RISKY TO EDIT ===== //
FillChar(MemoryOkay, SizeOf(MEMORYSTATUSEX), #0);
MemoryOkay.dwLength := SizeOf(MemoryStatusEx);
GlobalMemoryStatusEx (MemoryOkay);
MenuItem15.Text := 'RAM Usage: ' + ConvertBytes(ProcessMemory) + ' - Total Memory: ' + ConvertBytes(MemoryOkay.ullTotalPhys);
end;
procedure TForm1.TrackBar1Change(Sender: TObject);

2
Unit2.fmx
View file

@ -50,10 +50,12 @@ object Form2: TForm2
Viewport.Height = 344.000000000000000000
object StringColumn1: TStringColumn
Header = 'Apps'
HeaderSettings.TextSettings.WordWrap = False
Size.Width = 361.000000000000000000
end
object StringColumn2: TStringColumn
Header = 'Creator'
HeaderSettings.TextSettings.WordWrap = False
Size.Width = 367.000000000000000000
end
end

5
Unit2.pas
View file

@ -90,7 +90,7 @@ begin
MB_ICONERROR or MB_OK);
end;
StringGrid1.RowCount:= 33;
StringGrid1.RowCount:= 34;
// The Name of Creator
StringGrid1.Cells[0,0] := '7-Zip';
StringGrid1.Cells[1,0] := 'Igor Pavlov and Shelwien';
@ -190,6 +190,9 @@ begin
StringGrid1.Cells[0,32] := 'WavPack';
StringGrid1.Cells[1,32] := 'David Bryant';
StringGrid1.Cells[0,32] := 'BSC-M03';
StringGrid1.Cells[1,32] := 'lya Grebnov';
end;
procedure TForm2.FormShow(Sender: TObject);