In my Project Hook's AfterBuild event I have code like this:
DODEFAULT(nError)
m.lcBuildPRG = ADDBS(_VFP.ACTIVEPROJECT.HOMEDIR) + "Programs\BuildSetup.prg"
IF FILE(m.lcBuildPRG)
DO (m.lcBuildPRG) WITH THIS.icexeversion
ENDIF
So that I can build an Inno Setup script after compiling the exe.
My BuildSetup.prg looks like this:
LPARAMETERS tcExeVersion
IF MESSAGEBOX("Do you want to build the installation program?",4+32) = 6
IF FILE("ClearoutData.prg")
DO clearoutdata
ENDIF
CLOSE DATABASES ALL
m.lcExeVersion = m.tcExeVersion
TEXT TO m.lcInnoFile NOSHOW TEXTMERGE
#define MyAppName "Best Practice - Optical"
#define MyAppVerName "Best Practice - Optical 2.1"
#define MyAppPublisher "Samaan Systems Ltd."
#define MyAppURL "http://SamaanSystems.com";
#define MyAppExeName "Optical.exe"
#define MyAppVersion "<<m.lcExeVersion>>"
[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppId=BPO2
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\Best Practice\Optical
AppVersion={#MyAppVersion}
DefaultGroupName=Best Practice
Compression=lzma
SolidCompression=true
OutputBaseFilename={#MyAppName} {#MyAppVersion} setup
.
. tehe rest of my script goes here
.
ENDTEXT
m.lcSetupFile = ADDBS(_vfp.ActiveProject.HomeDir) + "Best Practice
- Optical.iss"
STRTOFILE(m.lcInnoFile, m.lcSetupfile)
X8ShellExecute(m.lcsetupfile) && this is a wrapper to ShellExecute
to open ISTool with my script
ENDIF
Frank.
Frank Cazabon
Samaan Systems Ltd. - Developing Solutions
www.SamaanSystems.com
Referrals are important to us.
If you know of anyone who would benefit from our services, please contact me.
We would appreciate the opportunity to work with them.
On 26/11/2010 04:06 PM, MB Software Solutions, LLC wrote:
> I have the following properties in my scripts:
>
> AppVerName=LTP 2.0.294
> VersionInfoVersion=2.0.294
> VersionInfoTextVersion=2.0.294
> VersionInfoProductVersion=2.0.294
> AppVersion=2.0.294
>
>
> Is there a way for me to set a variable to the version and then just
> have to set it once? If I did, I could code my Inno Script like this:
>
> MyVersion = 2.0.204
> AppVerName=LTP<<MyVersion>>
> VersionInfoVersion=<<MyVersion>>
> VersionInfoTextVersion=<<MyVersion>>
> VersionInfoProductVersion=<<MyVersion>>
> AppVersion=<<MyVersion>>
>
>
> I've thought about putting a projecthook in place (AfterBuild event)
> where it sets all these values. Anyone doing that?
>
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/4cf028ad.6040...@gmail.com
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
