FileForums
Page 9 of 20 « First 78 9 101119 Last »
Show 40 post(s) from this thread on one page

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   Mini Compressor AIO 2021 (https://fileforums.com/showthread.php?t=96315)

darkwolves 04-05-2019 08:24
Quote:
Originally Posted by Carldric Clement (Post 480863)
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 19-05-2019 04:13
Mini Compressor AIO Updated - v20.4
* Go check it out.

:D

Carldric Clement 19-05-2019 11:14
Giveaway Mini Compressor v20.4 + Source Code
 
1 Attachment(s)
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
Quote:
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. :D

kenzo34 19-05-2019 22:53
stay with us, you offer great software

Carldric Clement 20-05-2019 22:53
Quote:
Originally Posted by kenzo34 (Post 481074)
stay with us, you offer great software
thank you... But I'm retired. :D

NOTE:
Quote:
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? :D

Carldric Clement 29-05-2019 04:30
1 Attachment(s)
MC Beta v10 Released! :D

Enjoy using Mini Compressor.

Note:
Quote:
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 10-06-2019 08:40
Mini Compressor AIO Updated - v20.5

Fixed:
Quote:
* 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:
Quote:
* 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. :D

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

Carldric Clement 21-06-2019 07:45
Throwback Mini Compressor v2.05
 
1 Attachment(s)
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 23-06-2019 00:23
Mini Compressor AIO v20.6 - Updated

Changelog was moved: here

Fixed:
Quote:
* While close MC will check if the component is still active.
* The sound was added and nothing to fix anything. Looks clean.
Tweaks:
Quote:
* SFX was updated
* Throwback Mini Compressor v2.05 was added
* The design software was fixed.
Go check it out. :D

EDIT:
Quote:
any files or any source will update later.

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

Zanoza79 18-09-2019 04:29
Fanext does not work with your installer - requires you to insert a disk. Maybe I'm doing something wrong.:confused:

Quote:
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 21-09-2019 17:21
Quote:
Originally Posted by Carldric Clement (Post 481455)
Mini Compressor AIO v20.6 - Updated

Changelog was moved: here

Fixed:

Tweaks:

Go check it out. :D

EDIT:
It does not correctly determine the volume of the hard drive and the weight of the game.
Code:
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?
https://c.radikal.ru/c06/1909/04/10d1aa4101aa.jpg

Carldric Clement 24-09-2019 08:51
1 Attachment(s)
Quote:
Originally Posted by Zanoza79 (Post 482649)
Fanext does not work with your installer - requires you to insert a disk. Maybe I'm doing something wrong.:confused:


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 24-09-2019 09:01
Quote:
Originally Posted by MaXun (Post 482715)
It does not correctly determine the volume of the hard drive and the weight of the game.
Code:
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?
https://c.radikal.ru/c06/1909/04/10d1aa4101aa.jpg
I've just update a little bit. Just copy and paste through it.
Code:
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 24-09-2019 19:57
Quote:
Originally Posted by Carldric Clement (Post 482754)
I've just update a little bit. Just copy and paste through it.
Code:
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?
https://a.radikal.ru/a31/1909/af/b243d9408adb.jpg

Celestosapien 19-10-2019 18:33
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?


All times are GMT -7. The time now is 11:31.
Page 9 of 20 « First 78 9 101119 Last »
Show 40 post(s) from this thread on one page

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com