Subject | Re: [firebird-support] license question |
---|---|
Author | Niki Ivanchev |
Post date | 2004-04-28T14:00:13Z |
This is the way to modify the iss file
in [Files] section - locate alias.conf and change the line to be
Source: output\aliases.conf; DestDir: {app}; AfterInstall:
MyAfterInstall; Components: ServerComponent; Flags: uninsneveruninstall
onlyifdoesntexist
the change is AfterInstall: MyAfterInstall;
add your file - also in [Files] section
Source: output\crmdatabase\basedb.fdb; DestDir: {app}\crmdatabase;
Components: ServerComponent; Flags: uninsneveruninstall onlyifdoesntexist
I use flags to leave the database in case of uninstall but you may
decide to remove it.
in Pascal Script - just before last two lines add MyAfterInstall
procedure /adjust it for your needs/
last argument of SaveStringToFile is should it append or should it
overwrite. I decided to overwrite
/I wonder what will happen if I decide to append and several lines with
one alias are there/
procedure MyAfterInstall();
var fileName : String;
alias : String;
begin
fileName := ExpandConstant('{app}')+'\aliases.conf';
alias := 'crmdb = '+ExpandConstant('{app}')+'\crmdatabase\basedb.fdb';
if not SaveStringToFile(fileName,alias, false) then
begin
MsgBox('Problem creating alias. Please call tech support at
xxxx@...',mbInformation, MB_OK);
end;
end;
That's all - rebuild the script and run
It was a nice pleasure to write pascal again after 10 years :)
regards
Niki
Tim Ledgerwood wrote:
in [Files] section - locate alias.conf and change the line to be
Source: output\aliases.conf; DestDir: {app}; AfterInstall:
MyAfterInstall; Components: ServerComponent; Flags: uninsneveruninstall
onlyifdoesntexist
the change is AfterInstall: MyAfterInstall;
add your file - also in [Files] section
Source: output\crmdatabase\basedb.fdb; DestDir: {app}\crmdatabase;
Components: ServerComponent; Flags: uninsneveruninstall onlyifdoesntexist
I use flags to leave the database in case of uninstall but you may
decide to remove it.
in Pascal Script - just before last two lines add MyAfterInstall
procedure /adjust it for your needs/
last argument of SaveStringToFile is should it append or should it
overwrite. I decided to overwrite
/I wonder what will happen if I decide to append and several lines with
one alias are there/
procedure MyAfterInstall();
var fileName : String;
alias : String;
begin
fileName := ExpandConstant('{app}')+'\aliases.conf';
alias := 'crmdb = '+ExpandConstant('{app}')+'\crmdatabase\basedb.fdb';
if not SaveStringToFile(fileName,alias, false) then
begin
MsgBox('Problem creating alias. Please call tech support at
xxxx@...',mbInformation, MB_OK);
end;
end;
That's all - rebuild the script and run
It was a nice pleasure to write pascal again after 10 years :)
regards
Niki
Tim Ledgerwood wrote:
>At 08:19 AM 28/04/2004, you wrote:
>
>
>
>>I did - took me one day to figure out how to handle inno setup config
>>file and to get in touch with pascal script.
>>I can send additional details if you need them
>>Regards
>>Niki
>>
>>
>
>Yes - I would very much like to know how to do this, especially with Pascal
>examples. You can email me directly if you don't want to post it here.
>
>Regards and thanks
>
>Tim
>
>
>[Non-text portions of this message have been removed]
>
>
>
>
>Yahoo! Groups Links
>
>
>
>
>
>
>
>
>