Subject Re: [firebird-support] license question
Author Niki Ivanchev
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:

>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
>
>
>
>
>
>
>
>
>