Hello,
This can be done using a Custom Action.
1. Create a new text file, say scr.vbs, with the following content:
Code: Select all
Function Main
Dim filespec
filespec = Session.Property("APPDIR")
filespec = Left(filespec, Len(filespec) - 1)
Session.Property("INSTPATH") = filespec
End Function
2. On the Custom Actions page, select from the toolbar: Show Standard Action -> Before Finalization -> RegisterMIMEInfo. You could use any Standard Action executed
before WriteRegistryValues.
3. Add a New Attached Custom Action to RegisterMIMEInfo item and select the VBS script you created previously.
4. In the Function Name field type Main.
4. Switch to the Registry page and set the Data field of your
Install Path entry to [INSTPATH]. This property is created by the above script by removing the trailing backslash from [APPDIR].
Hope this helps.
Regards,
Denis