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)

Make an onchange for wizardform.diredit to update changes.

How to do one,

Code:

procedure DirEditOnChange(Sender: TObject);

begin

lbl.caption:= ExpandConstant('Espaço do Game : ') + MbOrTb(24000);

end;



WizardForm.DirEdit.OnChange:= @DirEditOnChange;

to add the two decimals use this mbortb

Code:

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 MbOrTb(Float: Extended): String;

begin

if Float < 1024 then Result:= NumToStr(Float)+' '+ 'MB'else

if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' '+'GB' else

Result:= NumToStr(Float/(1024*1024))+' '+'TB';

end;

Razor 12911 decimal solved but I am not getting the location to install you could put in my script how

Quote:

procedure DirEditOnChange(Sender: TObject);
begin
lbl.caption:= ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
end;

WizardForm.DirEdit.OnChange:= @DirEditOnChange;

oops, forgot something.

procedure DirEditOnChange(Sender: TObject);
var
Page: TWizardPage;
lbl: TLabel;
Path: String;
FreeMB, TotalMB: Cardinal;
begin
Path := WizardForm.DirEdit.Text;
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
Page := PageFromID(wpSelectDir);

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(105);
lbl.Height := ScaleY(43);
lbl.Caption := ExpandConstant('Espaço total do disco : ') + MbOrTb(TotalMB);
lbl.Left := 0;
lbl.Top := 155;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço em disco disponível: ') + MbOrTb(FreeMB) + ' (' + IntToStr((FreeMB * 100) div TotalMB) + '%)';
lbl.Left := 0;
lbl.Top := 175;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
lbl.Left := 0;
lbl.Top := 195;
lbl.Parent := Page.Surface;
end;

WizardForm.DirEdit.OnChange:= @DirEditOnChange;

Thanks Razor12911 I tried many ways but failed error when compiling (Line 19 Identifier expected) inno setup 5.5.2 unicode

[Code]
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 MbOrTb(Float: Extended): String;
begin
if Float < 1024 then Result:= NumToStr(Float)+' '+ 'MB'else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' '+'GB' else
Result:= NumToStr(Float/(1024*1024))+' '+'TB';
end;

procedure InitializeWizard3();
begin

procedure DirEditOnChange(Sender: TObject);
var
Path: String;
Page: TWizardPage;
lbl: TLabel;
FreeMB, TotalMB: Cardinal;
begin
Path := WizardForm.DirEdit.Text;
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
Page := PageFromID(wpSelectDir);

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(105);
lbl.Height := ScaleY(43);
lbl.Caption := ExpandConstant('Espaço total do disco : ') + MbOrTb(TotalMB);
lbl.Left := 0;
lbl.Top := 155;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço em disco disponível: ') + MbOrTb(FreeMB) + ' (' + IntToStr((FreeMB * 100) div TotalMB) + '%)';
lbl.Left := 0;
lbl.Top := 175;
lbl.Parent := Page.Surface;

lbl := TLabel.Create(Page);
lbl.Width := ScaleX(75);
lbl.Height := ScaleY(23);
lbl.Caption := ExpandConstant('Espaço do Game : ') + MbOrTb(24000);
lbl.Left := 0;
lbl.Top := 195;
lbl.Parent := Page.Surface;
end;

WizardForm.DirEdit.OnChange:= @DirEditOnChange;

procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
InitializeWizard3();
end;

[QUOTE=Razor12911;419320]I think you can certify Inno Setup as Portable, I mean, all it does is extracts Files.

you are right about this point.
Well i was trying to find out a way where i dont have to install the game or application in pf or any other directory ( natural way of innoset up).

i want to extract the file in directory (anyone and anywhere) and play that game or run application from there.

sorry for being so troublesome..... :D

hi all i neeed isdone i how to use it thnx

To Razor12911 thanks for your help and patience is now "solved"
A hug even more.

What is the problem? I used compact mode. Then finished resize installer and I see this. http://i41.tinypic.com/30lmnpv.png

http://i41.tinypic.com/30lmnpv.png

It's extraction files... caption. How I disable it in Finished page?

Code:

procedure CompactCheckBoxClick(Sender: TObject);

begin

  if CompactCheckBox.Checked then

  begin

    with WizardForm do

    begin

      Status.SetBounds(150,90,125,15);

      WizardSmallBitmapImage.Hide;

      WizardForm.ClientWidth:=420;

      WizardForm.ClientHeight:=175;

      MainPanel.Hide;

      Bevel.Hide;

      Bevel1.top:=132

      CompactCheckBox.SetBounds(326,150,90,14);

      SoundCtrlButton.SetBounds(16,141,100,30);

      CancelButton.SetBounds(151,141,100,30);

      MyCancelButton.SetBounds(151,141,100,30);

      ISDoneProgressBar1.Width:= ScaleX(388);

      ISDoneProgressBar1.height:=20;

      ISDoneProgressBar1.Left:= ScaleX(16);

      ISDoneProgressBar1.Top:=50;

      LabelTime1.Left:=ISDoneProgressBar1.Left;

      LabelTime1.Top:=ISDoneProgressBar1.Top +25;;

      LabelTime2.Top:= LabelTime1.Top;

      LabelTime2.Left:= 227;

      LabelCurrFileName.Left:= ISDoneProgressBar1.Left;

      LabelCurrFileName.Top:= ISDoneProgressBar1.Top -20;

      LabelPct1.Font.Height:=-24;

      LabelPct1.Left:= ISDoneProgressBar1.Left -33 + ISDoneProgressBar1.Width div 2;

      LabelPct1.Top:= ISDoneProgressBar1.Top + ScaleY(43);

      ProgressGauge.Width:= ScaleX(388);

      ProgressGauge.height:=20;

      ProgressGauge.Left:= ScaleX(16);

      ProgressGauge.Top:=50;

      Filenamelabel.Parent:=WizardForm;

      Filenamelabel.Left:=WizardForm.ProgressGauge.Left

      Filenamelabel.Top:=WizardForm.ProgressGauge.Top -20

      Filenamelabel.Width:=WizardForm.ProgressGauge.Width

      StatusLabel.parent:=wizardform;

      StatusLabel.Left:=WizardForm.ProgressGauge.Left

      StatusLabel.Top:=WizardForm.Filenamelabel.Top -20

      Top:=GetScreenHeight-ClientHeight-45

      Left:=GetScreenWidth-ClientWidth-20

    end;

  end else begin

    with WizardForm do

    begin

      Status.SetBounds(265,250,125,30);

      WizardSmallBitmapImage.show;

      WizardForm.ClientWidth:=654;

      WizardForm.ClientHeight:=402;

      MainPanel.Show;

      Bevel.Show;

      Bevel1.top:=90

      CompactCheckBox.SetBounds(560,315,90,14);

      SoundCtrlButton.SetBounds(250,353,60,30);

      CancelButton.SetBounds(420,353,100,30);

      MyCancelButton.SetBounds(420,353,100,30);

      ISDoneProgressBar1.Width:= ScaleX(500);

      ISDoneProgressBar1.height:=30;

      ISDoneProgressBar1.Left:= ScaleX(77);

      ISDoneProgressBar1.Top:=170;

      LabelTime1.Left:=ISDoneProgressBar1.Left;

      LabelTime1.Top:=ISDoneProgressBar1.Top +35;;

      LabelTime2.Top:= LabelTime1.Top;

      LabelTime2.Left:= 400;

      LabelCurrFileName.Left:= ISDoneProgressBar1.Left;

      LabelCurrFileName.Top:= ISDoneProgressBar1.Top -20;

      LabelPct1.Font.Height:=-24;

      LabelPct1.Left:= ISDoneProgressBar1.Left -33 + ISDoneProgressBar1.Width div 2;

      LabelPct1.Top:= ISDoneProgressBar1.Top + ScaleY(70);

      ProgressGauge.Width:= ScaleX(500);

      ProgressGauge.height:=30;

      ProgressGauge.Left:= ScaleX(77);

      ProgressGauge.Top:=170;

      top:=GetScreenHeight-ClientHeight-45

      left:=GetScreenWidth-ClientWidth-20

    end;

  end;

end;

Code:

  if CurPageID=wpFinished then begin

    HideComponents;

    WizardForm.ProgressGauge.Hide;

    SoundCtrlButton.SetBounds(210,347,100,30);

    SoundCtrlButton.Caption :=ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');

    WizardForm.Position:=poScreenCenter;

    WizardForm.ClientWidth:=654;

    WizardForm.ClientHeight:=402;

    WizardForm.Visible:=True;

    WizardForm.WizardBitmapImage.Show;

    WelcomeLbl.Show;

    WelcomeLbl.Left:=145;

    WizardForm.Caption:= 'Finish «{#AppName}» Setup Wizard';

    WelcomeLbl.Caption:='«{#AppName}» was successfully installed on your computer.' + #13#10#13#10 + 'Run the game from shortcut in "start" menu or Desktop shortcut.' + #13#10#13#10 + 'Click "Finish" to exit the installation program.';

  end;

//--------Game Fail To Install PAGE--------\\

  if (CurPageID = wpFinished) and ISDoneError then

  begin

    //LabelTime3.Hide;

    WizardForm.Caption:= 'Error! «{#AppName}»';

    WelcomeLbl.Font.Color:= clRed;

    WelcomeLbl.Caption:= 'Setup encountered an error while installing «{#AppName}»' + #13#10#13#10 + 'Changes were not saved , please re-run the setup again.';

    WelcomeLbl.Left:=163;

    WizardForm.ProgressGauge.Hide;

    WizardForm.Position:=poScreenCenter;

  end;

FIXED.

I deleted all

Code:

      Filenamelabel.Parent:=WizardForm;

      Filenamelabel.Left:=WizardForm.ProgressGauge.Left

      Filenamelabel.Top:=WizardForm.ProgressGauge.Top -20

      Filenamelabel.Width:=WizardForm.ProgressGauge.Width

      StatusLabel.parent:=wizardform;

      StatusLabel.Left:=WizardForm.ProgressGauge.Left

      StatusLabel.Top:=WizardForm.Filenamelabel.Top -20

Help how do I show page is only wpSelectTasks and also add Surface

[CODE]

Code:

var

avisoLabel: TLabel;



procedure InitializeWizard();

begin



avisoLabel := TLabel.Create(WizardForm);

avisoLabel.Left := ScaleX(0);

avisoLabel.Top := ScaleY(190)

avisoLabel.Width := ScaleY(185)

avisoLabel.Height := ScaleY(13)

//avisoLabel.Parent := WizardForm;      //sempre desativado

avisoLabel.Parent:= WizardForm.SelectDirPage;

avisoLabel.Font.Name:='Verdana';

avisoLabel.Font.Size:= 8;

avisoLabel.Font.Color:=${#Color};

avisoLabel.Transparent:=true;

avisoLabel.Caption := 'Leia antes';

avisoLabel.Font.Style:= [fsBold];



end;

Hello,
Is it possible to set the compatibility mode of game .exe to Windows XP using inno automatically?

look in inno help> [Setup]: TerminalServicesAware

you can set that there for the games EXE

R.G.Catalyst Inno Setup Script

Preview

Is it the official one or it's a rip/your work?

Do you have RG Mechanics script?

Awesome, attach it please :D

Searched forum and found this
Link

Filetest Run

Now I know this is meaningless post but helps out people dealing with scripts.

I compressed a file which is pretty much deflated.

Users can use this archive to test out their compression methods and etc and it saves time to apply precomp and etc.

the original file size is 440mb but I manage to drop it down to 318kb:eek::eek::eek:

If games were like this it would have been awesome. compress max payne 3 from 35gb to 765kb.

Try it.

I saw a Windows XP iso once compressed to 2m.b file only.
Where is RG Mechanics script?

Quote:

Originally Posted by Razor12911 (Post 419673)

Searched forum and found this
Link

@danswano

There.

How do i transparent WizardForm.FilenameLabel
or how do i get WizardForm.FilenameLabel.Caption to another label?

how to compress vp6 videos
or to resambled those videos

Quote:

Originally Posted by belkacemdj (Post 419793)

how to compress vp6 videos
or to resambled those videos

rename it to .bik
use RAD Video Tools to resample

Quote:

Originally Posted by Razor12911 (Post 419667)

R.G.Catalyst Inno Setup Script

Sorry but it's old version ;)

Friends is possible to change the image of the top of the 55x55 pages for a complete picture but leaving the letters over the image example

Quote:

Originally Posted by buttignol (Post 420036)

Friends is possible to change the image of the top of the 55x55 pages for a complete picture but leaving the letters over the image example

you can create a label and put it there with transparent

Quote:

Originally Posted by y_thelastknight (Post 420039)

you can create a label and put it there with transparent

Thank Y__thelastknight yes but how to change the image 55x55 for the ex: 498x60

Quote:

Originally Posted by buttignol (Post 420041)

Thank Y__thelastknight yes but how to change the image 55x55 for the ex: 498x60

Chk Attachment

Quote:

Originally Posted by y_thelastknight (Post 420063)

Chk Attachment

Thanks for the help Y__thelastknight solved perfect

If it is not abusing you too much to make a script to change the image of the page
finalize the installation to get image different page welcome.o same size
only to put another image on the page finish if possible thanks

Quote:

Originally Posted by buttignol (Post 420072)

chk attachment..

Quote:

Originally Posted by y_thelastknight (Post 420076)

chk attachment..

Thank you thank you thank you "Y__thelastknight" for their patience and support
Perfect extamente I wanted this same «resolved»

Quote:

Originally Posted by y_thelastknight (Post 420076)

chk attachment..

y_thelastknight need your help to click install of a white spot on the top picture you can check out my script to see what is happening
has a sample image

Hey Flieforum users

Can someone help me with freearc and unarc.dll

It seems like unarc.dll(295kb) and unarc.dll(317kb) have different functions and unarc.dll(317kb) is the latest either than unarc.dll(320kb) therefore, I'd like to know which one to use if I'm using Freearc 0.67 Alpha December 12, 2012. because the one which works is unarc.dll(295kb) which is kinda of outdated.

Note: I use freearc.exe to compress and not arc.exe.

Thanks.

no one an answer for me

how can i insert hompage and browse button
in autorunscript

thanks for help me

Greetings Guys,
During installation progress , i want to add time (eg. 14 minutes and 30 seconds remaning), name of the file being extracted and some line (eg. please wait while setup install the game/app on your system)..

is it possible?
if yes...
Please tell me how?

thanks in advance

Friends I am trying to put a warning on the page selecttasks page but I can not see the prompt script ex what is wrong

Code:

var

  avisoLabel: TLabel;



procedure InitializeWizard();

var

  aviso: TLabel;

begin



avisoLabel := TLabel.Create(WizardForm);

avisoLabel.Left := ScaleX(0);

avisoLabel.Top := ScaleY(190)

avisoLabel.Width := ScaleY(185)

avisoLabel.Height := ScaleY(13)

//avisoLabel.Parent := WizardForm;      

avisoLabel.Parent:= WizardForm.SelectDirPage;

//avisoLabel.Font.Name:='Verdana';

//avisoLabel.Font.Size:= 8;

//avisoLabel.Font.Color:=${#Color};

avisoLabel.Transparent:=true;

avisoLabel.Caption := 'ex;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';

//avisoLabel.Font.Style:= [fsBold];

//avisoLabel.AutoSize := True;



end;



procedure CurPageChanged(CurPageID: Integer);

begin

  avisoLabel.Visible := CurPageID = wpSelectDir;   //selecionar pagina de destino

end;

no parent maybe.

remove this //

//avisoLabel.Parent := WizardForm;

to

avisoLabel.Parent := WizardForm;

how can i insert hompage and browse button
in autorunscript

thanks for help me

Hello.

I still have two little problem in my installer, if anybody know how to solve, i will appreciate the help:

1) Make rounded corners.
Attachment 6710

2) A scrip to make a progress bar with image PNG.
Attachment 6711

Regards.