INNO TROUBLESHOOT - Questions Here

[y_thelastknight]

Originally Posted by Smurf Stomper

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

[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

[Smurf Stomper]

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

procedure CurPageChanged(CurPageID: Integer);
var
FinishedLbl2: TLabel; 
begin
  if (CurPageID = wpFinished) then FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

to this:

procedure CurPageChanged(CurPageID: Integer);
var
FinishedLbl2: TLabel; 
begin
  FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

mine works just fine. ::sigh::

[y_thelastknight]

Originally Posted by Smurf Stomper

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

procedure CurPageChanged(CurPageID: Integer);
var
FinishedLbl2: TLabel; 
begin
  if (CurPageID = wpFinished) then FinishedLbl2.Caption:= WizardForm.FinishedLabel.Caption; 
end;

to this:

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

[Smurf Stomper]

Full code section:

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;

[pakrat2k2]

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 ).

[Compiler]

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] ?

[Razor12911]

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

[danswano]

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?

[Razor12911]

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

[danswano]

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

[Razor12911]

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.

[danswano]

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

[3rabGamers]

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

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

GDFMaker.7z

What is that ?

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

5 -

[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 :

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 :



------>




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

[Razor12911]

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

[3rabGamers]

THANK YOU VERY MUCH

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

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

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 ?

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 ?