Create a Portable version

[vrybant]

Create a Portable version

[vrybant]

Hi! I added portable directive to code.

{$define portable}

bc70ae4

[rchastain]

Hello! I use daily UnboundBible under Windows, on a USB key. My bibles are in <UnboundBibleDirectory>/bibles/, and it works well. So, I would say that UB is already portable.

[pepaulo]

Hello! I use daily UnboundBible under Windows, on a USB key. My bibles are in <UnboundBibleDirectory>/bibles/, and it works well. So, I would say that UB is already portable.

Thank you for the answer. God bless you. I Will make a Portable Apps version If It is possible.

[rchastain]

God bless you.

Amen!

I Will make a Portable Apps version If It is possible.

I think we just need to put the executable in a ZIP file or in a self-extracting archive. (I don't think that the Portable Apps system be really useful in that case).

I will take a look ASAP. (For me I use Linux.)

[rchastain]

Finally I made a portable version of Unbound Bible. I hope that Vladimir doesn't mind.

You can find a package for Windows 32-bit here. I will upload a Linux version later.

The modification that I made in source code is very simple.

// unitutils.pas

function DataPath: string;
begin
  (*
  Result := GetUserDir + ApplicationName;
  *)
  Result := ExtractFilePath(ParamStr(0)) + 'data';
end;

(* ... *)

function ConfigPath: string;
begin
  (*
  {$ifdef windows} Result := LocalAppDataPath + ApplicationName;  {$endif}
  {$ifdef unix}    Result := GetUserDir + '.config/unboundbible'; {$endif}
  *)
  Result := ExtractFilePath(ParamStr(0)) + 'config';

@pepaulo
Please let me know if this is what you needed.

Best regards.

Roland

[rchastain]

Good! So I think I can delete the Sourceforge page that I had created.