INNO TROUBLESHOOT - Questions Here

[Logrim]

Another question,, its posible to add a round mask with botva2 and how? thanks.

[Razor12911]

it's possible and the how part, you need contact me via PM.

[Logrim]

And another question... how can i call filenamelabel when the compression is external? i mean compressed with freearc.

[altef_4]

Originally Posted by Logrim

And another question... how can i call filenamelabel when the compression is external? i mean compressed with freearc.

if you use ISDone, check this function

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;

CurrentFile is container with current extract file name

e.g.

 LabelCurrFileName.Caption:='Current File Name:  '+MinimizePathName(CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width-ScaleX(100));

this code was taken from original ISDone 0.6 example

[Logrim]

Thanks altef_4, problem solved.. and the detect install and offer unninstall too. :d Thanks for your help, man.

P.D. if i #define x64.. its the same than iswin64?, i try to do this for x64 registry keys and for x86 with RegWriteStringValue, but i dont have any way to test in x86 system.. The script work like a charm in x64

This is the way i do it:

#ifdef x64
RegWriteStringValue(HKLM,'SOFTWARE\Wow6432Node\Mic rosoft\Windows\CurrentVersion\Uninstall\' + GameName('') + '_is1','UninstallString','"'+ExpandConstant('{unin stallexe}')+'" /Silent');
#else
RegWriteStringValue(HKCU,'Software\Microsoft\Windo ws\CurrentVersion\Uninstall\' + GameName('') + '_is1','UninstallString','"'+ExpandConstant('{unin stallexe}')+'" /Silent');
#endif

Is this correct?

[altef_4]

Originally Posted by Logrim

Thanks altef_4, problem solved.. and the detect install and offer unninstall too. :d Thanks for your help, man.

P.D. if i #define x64.. its the same than iswin64?....

no, its not, if you use any pre processor directive e.g. #define, #include and others, its only works in compilation stage.
example how to use iswin64 with registry:

if iswin64 then
RegWriteStringValue(HKLM,'SOFTWARE\Wow6432Node\Mic rosoft\Windows\CurrentVersion\Uninstall\' + GameName('') + '_is1','UninstallString','"'+ExpandConstant('{unin stallexe}')+'" /Silent')
else
RegWriteStringValue(HKCU,'Software\Microsoft\Windo ws\CurrentVersion\Uninstall\' + GameName('') + '_is1','UninstallString','"'+ExpandConstant('{unin stallexe}')+'" /Silent');

[Andrey167]

can have someone else there is an example check md5

[jamel2013]

FontExpert is the software you need to view and manage fonts
installed or uninstalled on your computer. Not only it can display
these policies but also edit their properties and in print
reports. For easy searching, it can assign keywords and
organize them into categories. Obviously, you can copy, move or
remove fonts and if necessary even perform a filter or sort
according to your own criteria. Furthermore, FontExpert is able to detect and
resolve errors in installed fonts and also create a file
GIF, JPG, PNG, TIFF, BMP or even a HTML page from fonts
selected.

https://www.zeta-uploader.com/116132814

[Logrim]

One question.. i try to execute directx in ssPostInstall.. my code for this is:

procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep=ssPostInstall) then begin
if (DirectXCB.Checked = True) then begin
FileStatusLabel.Caption := ExpandConstant('{cm:Installing} ') + ExpandConstant('{#Redist1}') + ExpandConstant(', {cm:Wait}');
Exec(ExpandConstant('{src}\_CommonRedist\DirectX\D XSETUP.exe'),'/Silent',false);

but return invalid numbers of parameters error.. i'm lost,, what is wrong? thanks.
end;

[altef_4]

Originally Posted by Logrim

One question.. i try to execute directx in ssPostInstall.. my code for this is:



but return invalid numbers of parameters error.. i'm lost,, what is wrong? thanks.
end;

if (CurStep=ssPostInstall) then begin
  if (DirectXCB.Checked = True) then begin
    FileStatusLabel.Caption := ExpandConstant('{cm:Installing} ') + ExpandConstant('{#Redist1}') + ExpandConstant(', {cm:Wait}');
    Exec(ExpandConstant('{src}\_CommonRedist\DirectX\DXSETUP.exe'),'/Silent',ExpandConstant('{src}'),1,ewWaitUntilIdle,ResCode);
  end;
end;

original Exec function looks like:

function Exec(const Filename, Params, WorkingDir: String; const ShowCmd: Integer; const Wait: TExecWait; var ResultCode: Integer): Boolean;

p.s. add in var section
ResCode: integer;

[Logrim]

Edit: All Problem Solved. Thanks for your answers Altef. Only one more dude. I try to install silently the nvidia physx msi packaje, mi code is this:

if (NvidiaPhysxCB.Checked = True) then begin
FileStatusLabel.Caption := ExpandConstant('{cm:Installing} ') + ExpandConstant('{#Redist3}') + ExpandConstant(', {cm:Wait}');
Exec(ExpandConstant('{sys}\msiexec.exe {src}\_CommonRedist\PhysX\PhysX-9.13.0604-SystemSoftware.msi'),'/qn /i',ExpandConstant('{src}'),1,ewWaitUntilIdle,ResCo de);

but dont install,, no errors, nothing,, dont install.. what are i doing wrong?

[pakrat2k2]

check version number/msi extension. PhysX-9.13.0604-SystemSoftware.msi

sometime new files are exe not msi.

check this thread for component values ( redists )
http://fileforums.com/showthread.php?t=95092

[Logrim]

all syntax is correct pakrat2k2.. Only problem is the {sys}\msiexec.exe.. i dont know where allocate it, lol.. .

P.D. And the progressbar blink while install and i dont know why..

[GloverK1911]

I get error while installing
i use Conversion Quick Archive Packer of Razor
script inno i use: http://fileforums.com/showpost.php?p...&postcount=295

[Razor12911]

set up arc.ini