FileForums - INNO TROUBLESHOOT

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - INNO TROUBLESHOOT - Questions Here (https://fileforums.com/showthread.php?t=93193)

Quote:

Originally Posted by Smurf Stomper (Post 418991)

I have a question, posted in as part of a conversation w/ Peter, but if anyone has an answer they're welcome to post it

http://fileforums.com/showpost.php?p...9&postcount=56

Code:

[Setup]

AppName=MyApp

AppVerName=MyApp

DefaultDirname={pf}\MyApp



[files]

Source: Img2.bmp; DestDir: {tmp}; Flags: dontcopy



[ code ]

var

WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel;



procedure InitializeWizard();

begin

ExtractTemporaryFile('img2.bmp');



WizardForm.WizardBitmapImage.Width:= ScaleX(497);

WizardForm.WizardBitmapImage2.Width:= ScaleX(497);

WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\img2.bmp'));



WelcomeLabel1:= TLabel.Create(WizardForm);

WelcomeLabel1.AutoSize:= False;

with WizardForm.WelcomeLabel1 do

WelcomeLabel1.SetBounds(Left, Top, Width, Height);

WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font

WelcomeLabel1.Font.Color:= clWhite;

WelcomeLabel1.Transparent:= True;

WelcomeLabel1.WordWrap:= true;

WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;

WelcomeLabel1.Parent:= WizardForm.WelcomePage



WelcomeLabel2:= TLabel.Create(WizardForm);

WelcomeLabel2.AutoSize:= False;

with WizardForm.WelcomeLabel2 do

WelcomeLabel2.SetBounds(Left, Top, Width, Height);

WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font

WelcomeLabel2.Font.Color:= clWhite;

WelcomeLabel2.Transparent:= True;

WelcomeLabel2.WordWrap:= true;

WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;

WelcomeLabel2.Parent:= WizardForm.WelcomePage



FinishedHeadingLabel:= TLabel.Create(WizardForm);

FinishedHeadingLabel.AutoSize:= False;

with WizardForm.FinishedHeadingLabel do

FinishedHeadingLabel.SetBounds(Left, Top, Width, Height);

FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font

FinishedHeadingLabel.Font.Color:= clWhite;

FinishedHeadingLabel.Transparent:= True;

FinishedHeadingLabel.WordWrap:= true;

FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;

FinishedHeadingLabel.Parent:= WizardForm.FinishedPage



FinishedLabel:= TLabel.Create(WizardForm);

FinishedLabel.AutoSize:= False;

with WizardForm.FinishedLabel do

FinishedLabel.SetBounds(Left, Top, Width, Height);

FinishedLabel.Font:= WizardForm.FinishedLabel.Font

FinishedLabel.Font.Color:= clWhite;

FinishedLabel.Transparent:= True;

FinishedLabel.WordWrap:= true;

FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;

FinishedLabel.Parent:= WizardForm.FinishedPage



WizardForm.WelcomeLabel1.Hide;

WizardForm.WelcomeLabel2.Hide;

WizardForm.FinishedLabel.Hide;

WizardForm.FinishedHeadingLabel.Hide;

end;



procedure CurPageChanged(CurPageID: Integer);

begin

FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;

end;

@Smurf Stomper Try this script

@other members what is the best compression script for internal

interesting - yours displays the text on the finished page just fine.

As for compression, I think lzma2/ultra64 is the tightest that inno can offer, without having to resort to using .arc files like some scripts around the forums.

EDIT: I messed with my original script I had pasted - turns out if I change this

Code:

procedure CurPageChanged(CurPageID: Integer);

var

FinishedLbl2: TLabel; 

begin

  if (CurPageID = wpFinished) then FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 

end;

to this:

Code:

procedure CurPageChanged(CurPageID: Integer);

var

FinishedLbl2: TLabel; 

begin

  FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 

end;

mine works just fine. ::sigh::

Quote:

Originally Posted by Smurf Stomper (Post 418993)

EDIT: I messed with my original script I had pasted - turns out if I change this

Code:

procedure CurPageChanged(CurPageID: Integer);

var

FinishedLbl2: TLabel; 

begin

  if (CurPageID = wpFinished) then FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 

end;

to this:

Code:

procedure CurPageChanged(CurPageID: Integer);

var

FinishedLbl2: TLabel; 

begin

  FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 

end;

mine works just fine. ::sigh::

i think it wont works..try it..i just tried it and it didn't works :confused:

Full code section:

Code:

var

  bgImage : TBitmapImage;

  WelcomeLbl1,WelcomeLbl2,FinishedLbl1,FinishedLbl2: TLabel; 

  WelcomeLabel1,WelcomeLabel2,FinishedHeadingLabel,FinishedLabel: TLabel;



procedure InitializeWizard();  

begin

with wizardform do begin



  bgImage:= TBitmapImage.Create(MainForm);

  bgImage.Align:= alClient;

  bgImage.Stretch:= False;

  bgImage.Parent:= MainForm;

  bgImage.Center:= True;

  bgImage.BackColor:= $000000;



  WelcomeLabel1.Visible:= False

  WelcomeLabel2.Visible:= False

  FinishedLabel.Visible:= False

  FinishedHeadingLabel.Visible:= False



  WizardBitmapImage.Parent := WelcomePage;

  // the wizard.bmp images' dimensions specified here

  WizardBitmapImage.Width:= 497;

  WizardBitmapImage.height:= 313;

  WizardBitmapImage2.Width:= 497;

  WizardBitmapImage2.Height:= 313;

  

  WizardSmallBitmapImage.visible:=true;

  WizardSmallBitmapImage.Width:=220;

  WizardSmallBitmapImage.Height:=58;

  //use value of 0 for leftmost alignment

  WizardSmallBitmapImage.Left:=+0;

  

  //manipulate the small unbolded top text on wizard pages. 495 is the total width 

  //(subtract out the smallbitmapimage's width for the max text box width)

  

  PageDescriptionLabel.Visible:=true;

  PageDescriptionLabel.Width:=250;

  PageDescriptionLabel.Left:=+240;

  

  //manipulate the bold description text position

  PageNameLabel.Width:=275;

  PageNameLabel.Left:=+230;





//Manipulate text on welcome page - this is the top bold "Welcome..." text

  

WelcomeLbl1 := TLabel.Create(WizardForm);

  with WelcomeLbl1 do

  begin

    Parent := WizardForm.WelcomePage;

    WordWrap := True;

    AutoSize := False;

    Caption := WizardForm.WelcomeLabel1.Caption;

    Transparent:= True;

    Left := WelcomeLabel1.Left+50;

    Top := WelcomeLabel1.Top-10;

    Width:= 350;   

    Height := WelcomeLabel1.Height;

    Font.Color := ClBlack;

    Font.Size := 12;

    Font.Style := [fsBold];

  end;



WelcomeLbl2 := TLabel.Create(WizardForm);

  with WelcomeLbl2 do

  begin

    Parent := WizardForm.WelcomePage;

    WordWrap:= True;

    AutoSize:=False;

    Caption := WizardForm.WelcomeLabel2.Caption;

    Left := WelcomeLabel2.Left+90;

    Top := WelcomeLabel2.Top-10;

    Width := 230;    //this is the width of the text 'box'

    Height := WelcomeLabel2.Height;

    Transparent:= True;

    Font.Color:= ClBlack;



  end;



  //Manipulate text on finished page - this is the top bold "Completing..." text



FinishedLbl1 := TLabel.Create(WizardForm);

  with FinishedLbl1 do

  begin

    Parent := WizardForm.FinishedPage;

    WordWrap := True;

    AutoSize:=False;

    Caption := WizardForm.FinishedHeadingLabel.Caption;

    Transparent:=True;

    Left := WelcomeLbl1.Left;

    Top := WelcomeLbl1.Top;

    Width := WelcomeLbl1.Width;

    Height := WelcomeLbl1.Height;

    Transparent := True;

    Font.Color := ClBlack;

    Font.Size := 12;

    Font.Style := [fsBold];



  end;



FinishedLbl2 := TLabel.Create(WizardForm);

  with FinishedLbl2 do

  begin

    Parent := WizardForm.FinishedPage;

    WordWrap := True;

    AutoSize:=False;

    Caption := WizardForm.FinishedLabel.Caption ;

    Transparent := True;

    Left := WelcomeLbl2.Left;

    Top := WelcomeLbl2.Top;

    Width := WelcomeLbl2.Width ;

    Height := WelcomeLbl2.Height;

    Transparent := True;

    Font.Color := ClBlack;

  end;

  end;

end;



procedure CurPageChanged(CurPageID: Integer);

begin

  FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 

end;

depends on they types of files trying to compress. some compress better then others. look at any of the scripts posted that use peter's method ( bat file ).

If I compress few parts of a game with Srep only and rest with Srep and Precomp,then how to use ISDONE[i.e; srep for one files and srep+precomp for other] ?

@compiler
leave it as is, the arc.ini will solve your little problem.

Hello,
I have an issue with ISDone, let's say i have 2 arc archives
one to unpack to {app}\ and the second to {userdocs}\
When i uninstall the game it will remove the {app}\ data and leaves the docs.

Is there a solution so the files that copied to docs folder gets removed too?

hmm, try deltree, but it's doesn't make sense.

all files that are not copied to {pf} folder are not registered in the uninstall script, how to register them?

ask altef_4, he knows this. he did it with a filelist thingy.
but this is how you set it up.
DelTree(ExpandConstant('{userdocs}\Criterion Games'), True, True, True);

or something like this, now listen, I have a feeling that it's not a good idea of using deltree, so best to ask him.

hehe, will wait a little bit before PMing him, he might see it and reply.

Hi,
I have some points please :

1- what is the dif. between CI_Converted_To_CIU and CI 8.5.7.4 and CIU 1.0.0.6
in source projects ?

................

2-what is the best best command in Free arc for the highest compression ratio ?

................

3-How to compress videos and audio of games ?

................

4- What is the GDFBinary=GDF.dll

Quote:

good tool for making custom binary/GDF dlls for games.

Quote:

GDFMaker.7z

What is that ?

................

5 -

Quote:

[LauncherSettings]
InstallRedist=1

Launch1=DirectX
Launch164=0
Launch1BeforeInstall=1
LaunchCom1={src}\Support\directX9c\DXSETUP.exe
LaunchArg1=/silent

Launch2=Nvidia PhysX
Launch264=0
Launch2BeforeInstall=1
LaunchCom2={sys}\msiexec.exe
LaunchArg2=/qn /i "{src}\Support\PhysX-9.12.0613-SystemSoftware.msi"

This is means when the setup finished these programs will launched right ?
How to attach these programs ? + How to add more programs like that ?
I mean especially in these lines :

Quote:

Launch264=0
Launch2BeforeInstall=1
LaunchCom2={sys}\msiexec.exe
LaunchArg2=/qn /i "{src}\Support\PhysX-9.12.0613-SystemSoftware.msi"

................

6-How to less the files In the result
it make this :

http://img515.imageshack.us/img515/8...2013102831.png

------>

http://img6.imageshack.us/img6/7154/04062013102325.png

I mean when I get finished from all setting and compressing..etc
What should I do ?

1 - CI is a custom installer created by yener90, CIU is the advanced custom installer created by yener90, CI Conv CIU is CI Converted to CIU

2 - it depends on the files you are compressing.

3 - rather use srep compression or resample them

4 - gdf is the game binary, it shows and adds details of a the game in the registries and game explorer, gdf maker makes gmae binaries.

5 - it's the tasks the installer/setup should do.

6 - final files are autorun/setup.dll, setup.ini, setup.exe and setup.cab but you can use internal to make it autorun/setup.dll and setup.exe

THANK YOU VERY MUCH :D

Quote:

2 - it depends on the files you are compressing.U

How ? Can you explain more with examples of games sizes and types please ?

Quote:

4 - gdf is the game binary, it shows and adds details of a the game in the registries and game explorer, gdf maker makes gmae binaries.

Is this important to use it when I repack a game ?

Quote:

6 - final files are autorun/setup.dll, setup.ini, setup.exe and setup.cab but you can use internal to make it autorun/setup.dll and setup.exe

Yeeeeees HOW ? compile using innoscript ? or ?