Mini Compressor AIO 2021

[darkwolves]

Originally Posted by Carldric Clement

Edit the arc.ini in Bin > Arc folder
Find uelr
Change uv to ulv
Done

alright will try that i like the installer its cool to see an AIO with the option to compress and make an installer with the exact same tool

[Carldric Clement]

Mini Compressor AIO Updated - v20.4
* Go check it out.

[Carldric Clement]

Giveaway Mini Compressor v20.4 + Source Code is Available.
Use it and Compile it.

Based Created: Delphi XE 10.2.3
All source was included.

Disclaimer

Before you open it, Check if the component is missing or not. If not your problem with the old version Delphi that you used it.

To share with your all friend, cousin, etc. Make sure you credits who have created this software by my name. I recommended.
If not you disappoint me.

To mod this source, I require use with Delphi XE 10.2.3.

Any source was missing, I will update for a way my time.

Thank you guys for use Mini Compressor to all member's FileForums.
Thank you for your help.

Always Smile.

[kenzo34]

stay with us, you offer great software

[Carldric Clement]

Originally Posted by kenzo34

stay with us, you offer great software

thank you... But I'm retired.

NOTE:

But I'm not quit this forum guys. It because I have a job so I don't have time to update my software Mini Compressor and other.
If you guys want to use my latest version of Mini Compressor v20.4 + Source just modified... But don't forget to put credits who have created this software Mini Compressor. Okay?

[Carldric Clement]

MC Beta v10 Released!

Enjoy using Mini Compressor.

Note:

Using Freearc Next be used as safe. Not to be playing like a toy. It is still a developer. To use it, be careful. This FA does not finish updating. Okay?

The screenshot was uploaded.

[Carldric Clement]

Mini Compressor AIO Updated - v20.5

Fixed:

* SFX would be joint with your archive like MyFile.arc after compress
* UHARC can compress and decompress with CLS only. [Single and Multi-Thread version]

Tweaks:

* Design was updated
* You can watch Meme Videos on About > ?? form
* Self Extract can be joint with archive after compress
* lzma2[7z] and lolz optimize for memory

Check it out.

Moderator, Please change my title Mini Compressor to Mini Compressor AIO.

[Carldric Clement]

I always remember when I create this my old Mini Compressor v2.05 since 2014. If you guys remember this old software, It would be happier for me

[Carldric Clement]

Mini Compressor AIO v20.6 - Updated

Changelog was moved: here

Fixed:

* While close MC will check if the component is still active.
* The sound was added and nothing to fix anything. Looks clean.

Tweaks:

* SFX was updated
* Throwback Mini Compressor v2.05 was added
* The design software was fixed.

Go check it out.

EDIT:

any files or any source will update later.

The updates will be continued CIU V3 Designer on 31/12/2019

[Zanoza79]

Fanext does not work with your installer - requires you to insert a disk. Maybe I'm doing something wrong.

The updates will be continued CIU V3 Designer on 31/12/2019

I'm waiting.

It would be nice to add a selection of components to the installer and implement a registry entry.

[MaXun]

Originally Posted by Carldric Clement

Mini Compressor AIO v20.6 - Updated

Changelog was moved: here

Fixed:

Tweaks:

Go check it out.

EDIT:

It does not correctly determine the volume of the hard drive and the weight of the game.

function DelSp(s: string): string;
begin
  while Pos('  ',s)>0 do StringChange(s,'  ',' ');
  Result:=Trim(s);
end;

procedure GroupChange(Sender: TObject);
begin
  GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;

function NumToStr(Float: Extended): string;
begin
  Result:=Format('%.2n', [Float]);
  StringChange(Result, ',', '.');
  while ((Result[Length(Result)]='0') or (Result[Length(Result)]='.')) and (Pos('.',Result)>0) do SetLength(Result,Length(Result)-1);
end;

function MbOrGb(Float: extended): ansistring;
begin
  if Float >= (1024*1024*1024) then
    result:=format('%.2n',[Float/(1024*1024*1024)])+' Gb'
  else
    result:= format('%.2n',[Float/(1024*1024)])+' Mb';
end;

function GetElementIndex(a:TALabel; lbl:TLabel):integer;
var
  i:integer;
  f:boolean;
begin
  Result:=-1;
  f:=False;
  for i:=0 to GetArrayLength(a)-1 do
    if a[i]=lbl then begin
      f:=True;
      Break;
    end;
  if f then Result:=i;
end;

function NoIcons: Boolean;
begin
  Result:= BtnGetEnabled(hGroupBrowseBtn);
end;

function Desktop: Boolean;
begin
  Result:= BtnGetChecked(DesktopCheck);
end;

function QuickLaunch: Boolean;
begin
  Result:= BtnGetChecked(QuickLaunchCheck);
end;

procedure HideControls;
begin
  LabelPct1.Hide;
end;

What is wrong here?

[Carldric Clement]

Originally Posted by Zanoza79

Fanext does not work with your installer - requires you to insert a disk. Maybe I'm doing something wrong.


I'm waiting.

It would be nice to add a selection of components to the installer and implement a registry entry.

Can you screenshot how do you make on Archive Section behind Inno Maker on Mini Compressor?

I'll give you some example.

[Carldric Clement]

Originally Posted by MaXun

It does not correctly determine the volume of the hard drive and the weight of the game.

function DelSp(s: string): string;
begin
  while Pos('  ',s)>0 do StringChange(s,'  ',' ');
  Result:=Trim(s);
end;

procedure GroupChange(Sender: TObject);
begin
  GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;

function NumToStr(Float: Extended): string;
begin
  Result:=Format('%.2n', [Float]);
  StringChange(Result, ',', '.');
  while ((Result[Length(Result)]='0') or (Result[Length(Result)]='.')) and (Pos('.',Result)>0) do SetLength(Result,Length(Result)-1);
end;

function MbOrGb(Float: extended): ansistring;
begin
  if Float >= (1024*1024*1024) then
    result:=format('%.2n',[Float/(1024*1024*1024)])+' Gb'
  else
    result:= format('%.2n',[Float/(1024*1024)])+' Mb';
end;

function GetElementIndex(a:TALabel; lbl:TLabel):integer;
var
  i:integer;
  f:boolean;
begin
  Result:=-1;
  f:=False;
  for i:=0 to GetArrayLength(a)-1 do
    if a[i]=lbl then begin
      f:=True;
      Break;
    end;
  if f then Result:=i;
end;

function NoIcons: Boolean;
begin
  Result:= BtnGetEnabled(hGroupBrowseBtn);
end;

function Desktop: Boolean;
begin
  Result:= BtnGetChecked(DesktopCheck);
end;

function QuickLaunch: Boolean;
begin
  Result:= BtnGetChecked(QuickLaunchCheck);
end;

procedure HideControls;
begin
  LabelPct1.Hide;
end;

What is wrong here?

I've just update a little bit. Just copy and paste through it.

function MbOrGB(Float: extended): ansistring;
begin
  if Float<1024 then Result:=NumToStr(Float)+' MB'
  else if (Float/1024)<1024 then Result:=NumToStr(Float/1024)+' GB'
  else if (Float/(1024*1024))<1024 then Result:=NumToStr(Float/(1024*1024))+' TB'
end;

[MaXun]

Originally Posted by Carldric Clement

I've just update a little bit. Just copy and paste through it.

function MbOrGB(Float: extended): ansistring;
begin
  if Float<1024 then Result:=NumToStr(Float)+' MB'
  else if (Float/1024)<1024 then Result:=NumToStr(Float/1024)+' GB'
  else if (Float/(1024*1024))<1024 then Result:=NumToStr(Float/(1024*1024))+' TB'
end;

It works! thank.
And how can I add a display of the progress of the extracted files?

[Celestosapien]

Hi, i want to ask if there is any difference between using freearc or freearc next?
I mean related to data compression ratio or decompression speed with same methods?
or are there any specific methods that only work with fa?