Unportable version

From now if You need a portable version then add -dPortable compiler key
Al-Muhandis · Aug 27, 2021 · 70e69a3 · 70e69a3
1 parent 0ef82b5
commit 70e69a3
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 8 deletions.
diff --git a/.gitignore b/.gitignore
@@ -19,8 +19,6 @@
 *.bat
 *.new
 
-tgshd
-
 # Lazarus autogenerated files (duplicated info)
 *.rst
 *.rsj
@@ -36,4 +34,11 @@ backup/
 lib/
 
 # Application bundle for Mac OS
-*.app/
+*.app/
+
+# Output binary folders
+x86_64-linux/
+
+# Binary
+tests/console
+tgshd
diff --git a/configuration.pas b/configuration.pas
@@ -147,9 +147,11 @@ destructor TConfig.Destroy;
   inherited Destroy;
 end;
 
-initialization
+initialization{$ifdef portable}
   CnfDir:=IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)));
-  Cnfg:=TConfig.Create(CnfDir+ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini'));
+  Cnfg:=TConfig.Create(CnfDir+ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini'));{$else}
+  CnfDir:=GetAppConfigDir(True);
+  Cnfg:=TConfig.Create(CnfDir+ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini'));{$endif}
 
 finalization
   FreeAndNil(Cnfg);

diff --git a/tgshd.lpi b/tgshd.lpi
@@ -1,14 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="Telegram shell daemon"/>
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
@@ -19,7 +19,7 @@
       <MajorVersionNr Value="1"/>
       <MinorVersionNr Value="1"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="3"/>
+      <BuildNr Value="5"/>
     </VersionInfo>
     <BuildModes Count="4">
       <Item1 Name="Default" Default="True"/>