Randem Systems Support Board

OK thanks for the explanation.... Now I can use it to install my application that using ComponentOne. Viva InoScript !!!

That is correct for that machine, but it should be included for all installations.

OK.... So if I don't include VCRuntime 2008 then InnoScript can't automatically registering ComponentOne? Is that correct?

That is what InnoScript determined that you needed to register the file.

Is this because that I include VCRuntime 2008 so ComponentOne can automatically registered successfuly?

That is because InnoScript determines the real reason the files wont register and then corrects the problem.

Thanks for the information, now the installer is successfully installed at client machine. I don't see ComponentOne error again.  
 
I still havef question, how InnoScript can registered tidate8.ocx and tinumb8.ocx whereas I don't include ciregsvr.exe  
 
Great jobs!! Viva InnoScript
 
(Message edited by bibin98 on April 29, 2011)

Ok, I duplicated your results with the files. Just put those 3.5 files in your unsafe file list or use the template information I gave you to remove the files or you can do it as you already have each time by editing the script.

This is my Project InnoScript

ADD FILES:

There is nothing important in Add Files cause it only contains .JPG file and .LIC and doesn't have a dependencies with BO FixPack 3.5. It's automatically added eventhough I don't check mark the Crystal Report 11.5

How about the add files tab? what is in there. I used your project and cannot duplicate what you have...

I have look out the template file and I don;t found any BO FixPack. But I look out in Dependencies Tab there is BO FIxPack 3.5 file there

What is that for? Look in each template file to see if those files are in any of them...

-- Release.tpl
[Comments]
Template Processing first character indicators usage.
 
         No Indicator      Attempt replacement if cannot replace then add the line
          Plus Sign      Force addition of template line into script (no attempted replacement).
  ;      Semi-colon      Add line as a comment only. (No attempted replacement).
  -      Minus Sign      Delete the line. (No attempted replacement).
  &      Ampersand      Comment the line. (No attempted replacement).
 
 
-- CRYSTALL REPORTS.tpl
[InstallDelete]
Type: files; Name: {app}Install.log;
 
[Code]
 
//============================================================================
// Get the CLSID from the registry for the queried file to locate where this file was installed by the CR merge module
// We do this so that we know where to register the file after installation.
//============================================================================
 
function GetCLSIDFldr(Param: String): String;
var
  Location: String;
  CSLID: String;
  LogFile: String;
  sStr: String;
begin
  CSLID := Param;
  StringChangeEx(CSLID, '!', '{', True);
  StringChangeEx(CSLID, '@', '}', True);
 
  LogFile := ExpandConstant('{app}')   'Install.log';
  SaveStringToFile(LogFile, #13#10   CSLID   #13#10, True);
 
  if not RegQueryStringValue(HKEY_CLASSES_ROOT, 'TypeLib'   CSLID   '0win32','', Location) then
     Result := 'Not Registered !!!'   #13#10   'Possible Wrong Crystal Reports Version Installed on Source Machine or '   #13#10   'Wrong CRystal Reports Merge Module Installed on Target Machine'   #13#10;
     
  begin
    Location := ExpandConstant(Location)
    sStr := #13#10   Location   #13#10   StringOfChar('*',70)   #13#10
    SaveStringToFile(LogFile, sStr, True);
    Result := ExtractFileDir(Location);
  end;
end;
 
//-----------------------------------------------------------------------------------------------------------------
// Log the filename process to a log file  
//-----------------------------------------------------------------------------------------------------------------
 
function LogFileName(Filename: String): String;
var
  LogFile: String;
  sSTr: String;
begin
  LogFile := ExpandConstant('{app}')   'Install.log';
  sStr := #13#10   'Registering '   Filename   #13#10;
  SaveStringToFile(LogFile, sStr, True);
  Result := Filename;
end;
 
//============================================================================
 
-- SILVIA CELL.tpl (empty file 0 KB)