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

v6.2

Browse Source
This commit is contained in:
f1iwq2
2023-07-05 17:38:55 +02:00
parent 045587e758
commit f09fa4c454
14 changed files with 952 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
verif_version.pas
View File

@@ -23,7 +23,7 @@ var
Lance_verif : integer;
verifVersion,notificationVersion : boolean;
Const Version='6.1'; // sert à la comparaison de la version publiée
Const Version='6.2'; // 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;
@@ -31,6 +31,8 @@ function verifie_version : real;
implementation
uses unitconfig;
{$R *.dfm}
Procedure Aff(s : string);
@@ -284,8 +286,10 @@ end;
procedure TFormVersion.FormCreate(Sender: TObject);
begin
if debug=1 then Affiche('Création fenêtre version',clLime);
Timerverif.Interval:=1000; // timer à 1 seconde
Lance_verif:=2; // lancer la vérification de version dans 3s
if debug=1 then Affiche('Fin création fenêtre version',clLime);
end;
procedure TFormVersion.TimerVerifTimer(Sender: TObject);
@@ -299,6 +303,7 @@ begin
timerVerif.Enabled:=false;
if not(AvecInit) then exit;
if not(verifVersion) then exit;
if debug=1 then Affiche('Vérification version en ligne',clLime);
V_publie:=verifie_version;
if notificationVersion and (v_publie>0) then
begin