ASIS: Advanced Simple Installer Script

[abror]

Originally Posted by Cesar82

Insert something like this in CurStepChanged.

procedure CurStepChanged(CurStep: TSetupStep);
var
  ResultCode: Integer;
begin
  if CurStep = ssDone then
  begin
    ShellExec('open', 'https://www.fileforums.com', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
    ShellExec('open', ExpandConstant('{app}\game.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
  end;
end;

Hi Cesar82, thanks for helping me yesterday...

I want to ask again what compression method is the best

So far I'm using [1] Srep + Lzma I'm compressing a 200 mb file to 60 mb but last night I compressed WWE 2K22 with 10 Hours only cut very little from 49.8 GB to 49.3 GB

I read on the internet every game has a different compression method.. Do you know what the difference is?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~

Edit: if you want to know the compression method please open the link https://fileforums.com/showthread.php?t=99554 Thanks @KaktoR for telling

[fabrieunko]

hello, I just realized there is an error in the image below in the red frame, it should indicate a number instead of mb?

but I can't find where it is. can you help me? I am using version 7.3.3

[Cesar82]

Originally Posted by fabrieunko

hello, I just realized there is an error in the image below in the red frame, it should indicate a number instead of mb?

but I can't find where it is. can you help me? I am using version 7.3.3

Check if you have correctly configured the keys referring to the size of each component in the [ComponentsSettings] section of the Settings.ini file as:

Component1.Size=4.15 GB

In the ASIS theme configuration it is displaying correctly, so there must be some configuration missing.

[fabrieunko]

;; requires at least two components to enable page. 
;; if components is used the global size will be ignored. 
Component1.Name=Sniper Ghost Warrior 1
Component1.ItemType=CHECK
Component1.Size=7.17 GB
Component1.Level=0
Component1.Checked=1
Component1.Enabled=1

Component2.Name=Sniper Ghost Warrior 2
Component2.ItemType=CHECK
Component2.Size=8.66 GB
Component2.Level=0
Component2.Checked=1
Component2.Enabled=1

Component3.Name=Sniper Ghost Warrior 3 Season Pass Edition
Component3.ItemType=CHECK
Component3.Size=53.5 GB
Component3.Level=0
Component3.Checked=1
Component3.Enabled=1

I think so it's good I don't see any error.

[Cesar82]

I really think ASIS needs a little fix in the source code.
The label "MB" in Inno Setup languages is not constant in all languages.
Edit ASIS "Script.iss" and add the lines highlighted in RED (Place the lines in the same order as below).

function FormatDiskSpaceLabel(Labl: String; Size: Extended): String;
begin
  Result := Labl;
  StringChangeEx(Result, '[mb] MBs', '[size]', True);
  StringChangeEx(Result, '[mb] Мб', '[size]', True);
  StringChangeEx(Result, '[mb] Mo', '[size]', True);
  StringChangeEx(Result, '[mb] MB', '[size]', True);
  StringChangeEx(Result, '[size]', FormatBytes(Size, 2, False), True);
end;

[fabrieunko]

many thanks this worked

[kuyhaa]

hi, firstly thank you so much for this great script. i have little question for batch setting

how to show info in caption label when batch run after install, show the text in label caption, ex : " wait finishing proses" on compact mode

thanks

[KaktoR]

procedure CurStepChanged(CurStep: TSetupStep);
...
  if (CurStep = ssPostInstall) then
  begin
    if not IsDoneError then
    begin
      #if UseBatch
        if FileExists(ExpandConstant('{#BatchFileName}')) then
          WizardForm.FilenameLabel.Caption := 'Waiting for batch...';
          Exec2(ExpandConstant('{#BatchFileName}'), '', True);
      #endif

[Cesar82]

@KaktoR, I think you forgot the begin end.

procedure CurStepChanged(CurStep: TSetupStep);
...
  if (CurStep = ssPostInstall) then
  begin
    if not IsDoneError then
    begin
      #if UseBatch
        if FileExists(ExpandConstant('{#BatchFileName}')) then
        begin
          WizardForm.FilenameLabel.Caption := 'Waiting for batch...';
          Exec2(ExpandConstant('{#BatchFileName}'), '', True);
        end;
      #endif

[kuyhaa]

worked thanks @kaktor & @Cesar82

and 1 question again

when the batch running, i want the prosses hidden/silent ( only see on task manager and text 'Waiting for batch prosses...' ) without window cmd,

have setting ?

[Cesar82]

Originally Posted by kuyhaa

worked thanks @kaktor & @Cesar82

and 1 question again

when the batch running, i want the prosses hidden/silent ( only see on task manager and text 'Waiting for batch prosses...' ) without window cmd,

have setting ?

try

Exec2(ExpandConstant('{#BatchFileName}'), '', False);

[kuyhaa]

Originally Posted by Cesar82

try

Exec2(ExpandConstant('{#BatchFileName}'), '', False);

big thanks ,

[KaktoR]

Originally Posted by Cesar82

@KaktoR, I think you forgot the begin end.

procedure CurStepChanged(CurStep: TSetupStep);
...
  if (CurStep = ssPostInstall) then
  begin
    if not IsDoneError then
    begin
      #if UseBatch
        if FileExists(ExpandConstant('{#BatchFileName}')) then
        begin
          WizardForm.FilenameLabel.Caption := 'Waiting for batch...';
          Exec2(ExpandConstant('{#BatchFileName}'), '', True);
        end;
      #endif

Thanks, already fixed it here (I made already extensive changes in the script).

Me be like

[abror]

can the pause button be removed?

[KaktoR]

Originally Posted by abror

can the pause button be removed?

Yes