INNO TROUBLESHOOT - Questions Here

[danswano]

Thank you razor, i thought it should be set in cls.ini

[nizcoz]

1) How to add a message at the finish of the ¨Cancel while installing¨?? ¨the installation was succefully aborted¨

2) How to resize the uninstall`s WizardSmallBitmapImage to Left := ScaleX(0);
Width := ScaleX(500);
Height := ScaleY(60);

3) How to add timeelapsed, porcentage, etc to install and uninstall pages?

Thanks!!!

PD: sorry, bad english.

[Razor12911]

1) if isdone was not used, meaning if you rely on internal installation, i don't think that's possible.
2)
procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm.WizardSmallBitmapImage do
begin
left...
Width...
end;
end;
3) add labels, apply math, add a counter for the elapsed time x (100 - current progress), use a timer to update labels.

[nizcoz]

Originally Posted by Razor12911

1) if isdone was not used, meaning if you rely on internal installation, i don't think that's possible.
2)
procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm.WizardSmallBitmapImage do
begin
left...
Width...
end;
end;
3) add labels, apply math, add a counter for the elapsed time x (100 - current progress), use a timer to update labels.

2) How define the bmp file? i wish that uninstaller shows the same that the installer. The installer show the bmp file with this size.

3) A simple example? with seconds and porcentage? it`s possible?

Thanks a lot!

[Viper645]

Originally Posted by Razor12911

1) if isdone was not used, meaning if you rely on internal installation, i don't think that's possible.
2)
procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm.WizardSmallBitmapImage do
begin
left...
Width...
end;
end;
3) add labels, apply math, add a counter for the elapsed time x (100 - current progress), use a timer to update labels.

Will you please check your PM please?

[nizcoz]

Originally Posted by Viper645

Will you please check your PM please?

I do not have messages.

[nizcoz]

Hi! How to add the function of TotalSpace, freeSpace, NeedSpace to a readypage??

[nizcoz]

What characteristics are required for an avi file with Inno Media Player? Because a particular avi file works ok, but with another video file, it doesn't work.

[nizcoz]

Originally Posted by nizcoz

What characteristics are required for an avi file with Inno Media Player? Because a particular avi file works ok, but with another video file, it doesn't work.

Solved.

[sanujsahu]

Bro how to make your own design innovative script

[nizcoz]

How to decompress an arc file with password when i use a isdone (ini) script? (by dante1995)

[-XCX-]

Originally Posted by nizcoz

How to decompress an arc file with password when i use a isdone (ini) script? (by dante1995)

if not ISArcExtract ( 0, 100, ExpandConstant('{src}\data.bin), ExpandConstant('{app}\'), '', false, '{#PasswordHere}', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;

[nizcoz]

Originally Posted by -XCX-

if not ISArcExtract ( 0, 100, ExpandConstant('{src}\data.bin), ExpandConstant('{app}\'), '', false, '{#PasswordHere}', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;

@-XCX-

In this code http://ww2.fileforums.com/showthread.php?t=96170 (see ISDone v0.6 lite (ini), it is not the classic isdone, it is a custom isdone (dante1995)) . There is not a line of code like that where to replace what you say.

[-XCX-]

Originally Posted by nizcoz

@-XCX-

In this code http://ww2.fileforums.com/showthread.php?t=96170 (see ISDone v0.6 lite (ini), it is not the classic isdone, it is a custom isdone (dante1995)) . There is not a line of code like that where to replace what you say.

paste this
if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin
repeat

case ActiveLanguage of
'en': ChangeLanguage('English');
'it': ChangeLanguage('Italian');
end;

if not SrepInit('',512,0) then ISDoneError := True;
if not PrecompInit('',128,0) then ISDoneError := True;
if not FileSearchInit(true) then ISDoneError := True;
i:=1;
if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then
begin
SetArrayLength(Arc1,4);
SetArrayLength(Arc2,4);
repeat
Arc1[0]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')));
Arc1[1]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Output','',ExpandConstant('{tmp}\Setu p.ini')));
Arc1[2]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Disk','1',ExpandConstant('{tmp}\Setup .ini')));
Arc1[3]:=GetIniString('FreearcFile' + IntToStr(i),'Password','',ExpandConstant('{tmp}\Se tup.ini'));

if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(SetupMessage(msgChangeDiskTitle) +' '+'( '+ Arc1[2]+' )', mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, 'edward', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;

i:= i + 1;
end;
end;
until ((GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '') or (ISDoneError = True));
end;
until true;
ISDoneStop;
end;
and
put
[FreearcFile1]
Archive={src}\data.arc
Output={app}
Disk=1
Password=herepassword

[nizcoz]

Originally Posted by -XCX-

paste this
if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin
repeat

case ActiveLanguage of
'en': ChangeLanguage('English');
'it': ChangeLanguage('Italian');
end;

if not SrepInit('',512,0) then ISDoneError := True;
if not PrecompInit('',128,0) then ISDoneError := True;
if not FileSearchInit(true) then ISDoneError := True;
i:=1;
if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then
begin
SetArrayLength(Arc1,4);
SetArrayLength(Arc2,4);
repeat
Arc1[0]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')));
Arc1[1]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Output','',ExpandConstant('{tmp}\Setu p.ini')));
Arc1[2]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Disk','1',ExpandConstant('{tmp}\Setup .ini')));
Arc1[3]:=GetIniString('FreearcFile' + IntToStr(i),'Password','',ExpandConstant('{tmp}\Se tup.ini'));

if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(SetupMessage(msgChangeDiskTitle) +' '+'( '+ Arc1[2]+' )', mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, 'edward', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;

i:= i + 1;
end;
end;
until ((GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '') or (ISDoneError = True));
end;
until true;
ISDoneStop;
end;
and
put
[FreearcFile1]
Archive={src}\data.arc
Output={app}
Disk=1
Password=herepassword

@-XCX- First, thanks for your answer, but not work. You wrote ¨if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, 'edward', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;¨ . Could you check what's wrong? Thanks!