From 4ecee54270de0a629969f8245ebae19aeeffcb1a Mon Sep 17 00:00:00 2001 From: Patrice Fouquet Date: Sat, 6 Jun 2020 15:15:58 +0200 Subject: [PATCH] Release version of WordKillers 1.5.2.1 --- WordKillers/install/inswordkillers.iss | 2 +- WordKillers/src/WordKillers.dproj | 8 ++--- WordKillers/src/WordKillers.res | Bin 92804 -> 92804 bytes WordKillers/src/base.pas | 40 +++++++++++++++---------- 4 files changed, 30 insertions(+), 20 deletions(-) diff --git a/WordKillers/install/inswordkillers.iss b/WordKillers/install/inswordkillers.iss index 8e5fc82..fe9d83b 100644 --- a/WordKillers/install/inswordkillers.iss +++ b/WordKillers/install/inswordkillers.iss @@ -2,7 +2,7 @@ ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! #define MyAppName "WordKillers" -#define MyAppVersion "1.5.1.1" +#define MyAppVersion "1.5.2.1" #define MyAppPublisher "Patquoi.fr" #define MyAppURL "http://patquoi.fr" diff --git a/WordKillers/src/WordKillers.dproj b/WordKillers/src/WordKillers.dproj index 82b0943..fb9478a 100644 --- a/WordKillers/src/WordKillers.dproj +++ b/WordKillers/src/WordKillers.dproj @@ -70,14 +70,14 @@ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png 1036 - CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.5.1.1;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.5.1;Comments=Licence Publique Générale 2.0 + CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.5.2.1;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.5.2;Comments=Licence Publique Générale 2.0 WordKillers true true 5 W10DarkPatquoiFr|VCLSTYLE|$(BDSCOMMONDIR)\Styles\W10DarkPatquoiFr.vsf 1 - 1 + 2 DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;FireDAC;vcltouch;vcldb;bindcompfmx;svn;FireDACSqliteDriver;FireDACPgDriver;inetdb;soaprtl;DbxCommonDriver;fmx;FireDACIBDriver;fmxdae;xmlrtl;soapmidas;fmxobj;vclwinx;rtl;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage) @@ -130,13 +130,13 @@ true WordKillers_Icon.ico 2 - CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.5.1.2;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.5.1;Comments=Licence Publique Générale 2.0 + CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.5.2.2;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.5.2;Comments=Licence Publique Générale 2.0 true WordKillers_Icon.ico 2 - CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.5.1.2;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.5.1;Comments=Licence Publique Générale 2.0 + CompanyName=Patquoi.fr;FileDescription=$(MSBuildProjectName);FileVersion=1.5.2.2;InternalName=WK;LegalCopyright=2019, Patrice Fouquet;LegalTrademarks=Word Killers;OriginalFilename=;ProgramID=com.patquoi.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.5.2;Comments=Licence Publique Générale 2.0 diff --git a/WordKillers/src/WordKillers.res b/WordKillers/src/WordKillers.res index 998d366fc80e6067934d35d4d0e77a563a7f249a..d33f26b11297de832dfb866e18f2778e803cec9a 100644 GIT binary patch delta 39 vcmZp<%Gz?3bwU{@69X#)BLf2i)5Q9pj7FO)8H*Vijhf#wZGX$eI6WNz0 then + stVarUserProfile = 'USERPROFILE'; // vWK 1.5.2 + stRepLocAppDataWK = '\Patquoi.fr\Word Killers'; +var stExePath : String; // vWK 1.5.2 +begin // vWK 1.5.2 procédure réécrite +stExePath := ExtractFilePath(ParamStr(0)); +stRepLocalAppData := GetEnvironmentVariable(stVarLocalAppData); +if stRepLocalAppData = '' then begin - SetLength(stRepLocalAppData, n-1); - if GetEnvironmentVariable(pChar(stVarLocalAppData), pChar(stRepLocalAppData), n)<>n-1 then - stRepLocalAppData:=ExtractFilePath(ParamStr(0)) // Dossier de WordKillers.exe + stRepLocalAppData := GetEnvironmentVariable(stVarUserProfile); + if stRepLocalAppData = '' then + stRepLocalAppData := stExePath // Dossier de Duplicata.exe else begin - stRepLocalAppData:=stRepLocalAppData+stRepLocAppDataDup; - if not DirectoryExists(stRepLocalAppData) then - if not ForceDirectories(stRepLocalAppData) then - stRepLocalAppData:=ExtractFilePath(ParamStr(0)) // Dossier de WordKillers.exe + stRepLocalAppData := stRepLocalAppData + '\Local Settings\Application Data' + stRepLocAppDataWK; + if not DirectoryExists(stRepLocalAppData) then + if not ForceDirectories(stRepLocalAppData) then + stRepLocalAppData := stExePath // Dossier de Duplicata.exe else stRepLocalAppData:=stRepLocalAppData+'\' else stRepLocalAppData:=stRepLocalAppData+'\'; - end + end; end else - stRepLocalAppData:=ExtractFilePath(ParamStr(0)); // Dossier de WordKillers.exe + begin + stRepLocalAppData := stRepLocalAppData + stRepLocAppDataWK; + if not DirectoryExists(stRepLocalAppData) then + if not ForceDirectories(stRepLocalAppData) then + stRepLocalAppData:=stExePath // Dossier de Duplicata.exe + else + stRepLocalAppData:=stRepLocalAppData+'\' + else + stRepLocalAppData:=stRepLocalAppData+'\'; + end end; //--------------------------------------------------------------------------- initialization