Miroirs/RadStudio
1
0
Fork 0
mirror of https://github.com/patquoi/RadStudio.git synced 2024-11-15 19:47:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Release version of WordKillers 1.5.2.1

Browse source
This commit is contained in:
Patrice Fouquet 2020-06-06 15:15:58 +02:00
parent 4bf4c9d937
commit 4ecee54270
4 changed files with 30 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
WordKillers/install/inswordkillers.iss
View file

@ -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"

8
WordKillers/src/WordKillers.dproj
View file

@ -70,14 +70,14 @@
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<VerInfo_Locale>1036</VerInfo_Locale>
<VerInfo_Keys>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</VerInfo_Keys>
<VerInfo_Keys>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</VerInfo_Keys>
<SanitizedProjectName>WordKillers</SanitizedProjectName>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
<VerInfo_MinorVer>5</VerInfo_MinorVer>
<Custom_Styles>W10DarkPatquoiFr|VCLSTYLE|$(BDSCOMMONDIR)\Styles\W10DarkPatquoiFr.vsf</Custom_Styles>
<VerInfo_Build>1</VerInfo_Build>
<VerInfo_Release>1</VerInfo_Release>
<VerInfo_Release>2</VerInfo_Release>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>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)</DCC_UsePackage>
@ -130,13 +130,13 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<Icon_MainIcon>WordKillers_Icon.ico</Icon_MainIcon>
<VerInfo_Build>2</VerInfo_Build>
<VerInfo_Keys>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</VerInfo_Keys>
<VerInfo_Keys>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</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<Icon_MainIcon>WordKillers_Icon.ico</Icon_MainIcon>
<VerInfo_Build>2</VerInfo_Build>
<VerInfo_Keys>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</VerInfo_Keys>
<VerInfo_Keys>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</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">

BIN
WordKillers/src/WordKillers.res
View file

Binary file not shown.

40
WordKillers/src/base.pas
View file

@ -4150,30 +4150,40 @@ end;
//---------------------------------------------------------------------------
procedure InitialiseRepLocalAppData; // v1.8.4 : stRepLocalAppData remplace ExtractFilePath(ParamStr(0))
const stVarLocalAppData = 'LOCALAPPDATA';
stRepLocAppDataDup = '\Patquoi.fr\Word Killers';
var n : DWord;
begin
n:=0;
n:=GetEnvironmentVariable(pChar(stVarLocalAppData), nil, n);
if n>0 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