easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V8.24

Browse Source
This commit is contained in:
f1iwq2
2023-10-19 13:04:16 +02:00
parent 138f0918df
commit b33561a463
16 changed files with 1578 additions and 793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
verif_version.pas
View File

@@ -25,7 +25,7 @@ var
verifVersion,notificationVersion : boolean;
date_creation,nombre_tel : string;
Const Version='8.21'; // sert à la comparaison de la version publiée
Const Version='8.24'; // sert à la comparaison de la version publiée
SousVersion=' '; // A B C ... en cas d'absence de sous version mettre un espace
function GetCurrentProcessEnvVar(const VariableName: string): string;
@@ -56,7 +56,7 @@ begin
else
begin
SetLength(result,nSize-1);
if GetEnvironmentVariable(PChar(VariableName), PChar(result), nSize) <> nSize - 1 then
if GetEnvironmentVariable(PChar(VariableName),PChar(result),nSize) <> nSize-1 then
raise Exception.Create(SysErrorMessage(GetlastError))
end;
end;
@@ -200,7 +200,7 @@ begin
nombre_tel:=extrait_champ_simple('download_count');
// date de création
date_creation_ang:=extrait_champ('created_at');
date_creation_ang:=extrait_champ('published_at');
if date_creation_ang<>'' then
begin
//Affiche(date_creation_ang,clyellow);