Registry path to EBasic for InnoSetup?

[MikeHart]

Hi Paul,

to retrieve the path to EBasic automatically I would like to tell InnoSetup which one it is.
Can you let me know which Registry entry is the best to use?

Michael

[Ionic Wind Support Team]

HKCU/Software/IonicWind/Emergence BASIC/Paths/BIN

Should do it.  Work back from that path.

[MikeHart]

Thanks, I got it to work.

[LarryMc]

Paul,
Can you show me what the istool entry looks like to make a registry entry for the path to "myprogram".

Can you show me what the istool entry would look like for a supplemental install to put files in the same directory where the first install put the exe considering the user is allowed to pick where they want the exe located..

i.e.
The 1st install would install the exe and support files.

The 2nd and/or subsequent installs would be for additional data files as they became available.

[Ionic Wind Support Team]

[Registry]
Root: HKCU; Subkey: Software\Company\Product; Flags: uninsdeletekey

As for updating a file I usually just read a path I stored on the initial install with a custom program.   When updating the entire installation Inno picks the last location the program was installed to.

[LarryMc]

As for updating a file I usually just read a path I stored on the initial install with a custom program.ÂÃ,  ÂÃ, 

So what would that path entry look like?

[Ionic Wind Support Team]

That entry creates the main product key.  It's up to your software to write other keys there.

The IDE for Emergence writes the startup keys on the first run.  The path to the BIN directory and such.

[MikeHart]

Hey Larry,

to retrieve the EBasic path within InnoSetup, I add/change the following stuff to the script:

Code Select Expand


DefaultDirName={code:EBPath}

[c o d e]ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ,  ÂÃ, <--- remove the spaces, this forum misinterprets the correct spelling
function EBPath(Param: String): String;
var
n:string;
p:integer;
l:integer;
begin
n := ExpandConstant('{reg:HKCU\Software\IonicWind\Emergence BASIC\Paths\,BIN}');
p := Pos('\bin',n);
l := Length(n);
n := Copy(n,1,p);
ÂÃ,  ÂÃ,  Result := n;
end;

[Ionic Wind Support Team]

You should note that will only work with later versions of Inno.  Versions prior to 4, if I remember, didn't support Pascal scripting.