From fd0202536c020c60fff13a640037d9c774d2baee Mon Sep 17 00:00:00 2001 From: Mark van Renswoude Date: Sat, 10 Jun 2017 10:07:09 +0200 Subject: [PATCH] Fixed #1: Auto-create user data scripts path in setup or during first launch --- G940LEDControl/G940LEDControl.dproj | 9 ++++++--- G940LEDControl/G940LEDControl.res | Bin 27828 -> 28540 bytes .../Units/LuaLEDFunctionProvider.pas | 2 +- Setup/G940LEDControl.iss | 3 +++ 4 files changed, 10 insertions(+), 4 deletions(-) diff --git a/G940LEDControl/G940LEDControl.dproj b/G940LEDControl/G940LEDControl.dproj index 30b6caf..59bb1e2 100644 --- a/G940LEDControl/G940LEDControl.dproj +++ b/G940LEDControl/G940LEDControl.dproj @@ -8,7 +8,7 @@ VCL 13.4 True - Debug + Release Win32 1 Application @@ -55,7 +55,6 @@ Lib Bin ..\Shared;$(DCC_UnitSearchPath) - true None G940LEDControl_Icon.ico Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace) @@ -76,6 +75,11 @@ $(BDS)\bin\default_app.manifest + true + 0 + 2 + CompanyName=X²Software;FileDescription=G940 LED Control;FileVersion=2.0.0.0;InternalName=;LegalCopyright=© 2011 - 2017 X²Software;LegalTrademarks=;OriginalFilename=G940LEDControl.exe;ProductName=G940 LED Control;ProductVersion=2.0;Comments= + 0 7.0 False False @@ -98,7 +102,6 @@ /multiinstance - false CompanyName=;FileDescription=;FileVersion=1.1.3.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=0.2;Comments= $(BDS)\bin\default_app.manifest diff --git a/G940LEDControl/G940LEDControl.res b/G940LEDControl/G940LEDControl.res index 4ed79be010dbe416f03dd8eaf98310de00f0dc36..6bf97bcfcec0209f5e6cf82707ff236dca80addc 100644 GIT binary patch delta 730 zcmaKqu}%U(5QhIFS3qnuR(4ldDnUXtRwe=(4T2Fv>vb(dB*>C=ty_YxV^WC}kf?-1PB#p=OOb1KKDCJs%WthmZ)>PFg zYf(p7d#b3+d5?7m+l*KD<4ZF40ooDnThYk?Lwe+3OC}WHtZJa1TJqHd*HT*z(7rCz zA!x)c2T3{RrrnF!(z@pG=ZU#eS9Rj=kW=T>uo+JD47mekpd0+X$iJ@z?!|e60`9)f ztbi_|Ew1<$uuD3V)KiJN3+yJDZ^d>HX+}oLDOe3w588y0RhpQ1nm#TOUm~uFq_*+_ z$S%rF{Y_m0mmW!#<=Psbr`4a+2G(Cym9+@C5^+o~4L+{YoWj1uMTI5h6--x@M%OLV zjBVSdLx3Hf>zWP?X4)Hr{_D<)Ttv+>e)Z^pN=`TSECx3yo3`{ykka_Dq Q)zxR7E9H*dC-0&C4aC1}&Hw-a delta 13 Vcmex!k8#UQ#t90WUocI{0RS^*2DbnJ diff --git a/G940LEDControl/Units/LuaLEDFunctionProvider.pas b/G940LEDControl/Units/LuaLEDFunctionProvider.pas index 1bac8a6..9b43d1d 100644 --- a/G940LEDControl/Units/LuaLEDFunctionProvider.pas +++ b/G940LEDControl/Units/LuaLEDFunctionProvider.pas @@ -493,7 +493,7 @@ var begin for scriptFolder in ScriptFolders do - if TDirectory.Exists(scriptFolder) then + if ForceDirectories(scriptFolder) then for scriptFile in TDirectory.GetFiles(ScriptFolder, '*.lua') do try Interpreter.LoadFromFile(scriptFile); diff --git a/Setup/G940LEDControl.iss b/Setup/G940LEDControl.iss index fe9f7c4..6f88e24 100644 --- a/Setup/G940LEDControl.iss +++ b/Setup/G940LEDControl.iss @@ -33,6 +33,9 @@ Source: "..\G940LEDControl\Bin\LogiJoystickDLL.dll"; DestDir: "{app}"; Flags: ig Source: "..\G940LEDControl\Bin\FSX-SimConnect.dll"; DestDir: "{app}"; Flags: ignoreversion Source: "..\G940LEDControl\Bin\FSX-SE-SimConnect.dll"; DestDir: "{app}"; Flags: ignoreversion +[Dirs] +Name: "{userappdata}\G940LEDControl\Scripts\FSX" + [Icons] Name: "{group}\{#AppName}"; Filename: "{app}\{#AppExeName}" Name: "{commondesktop}\{#AppName}"; Filename: "{app}\{#AppExeName}"; Tasks: desktopicon