1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
uses System.Diagnostics,SysUtils;
Function GetVersion:String;
var VersionApplication : FileVersionInfo ;
MaVersion : String ;
Begin
// Récupére le nom de l'application via la ligne de commande
// L'argument 0 de la ligne de commande est le nom de l'application en cours d'exécution
VersionApplication := FileVersionInfo.GetVersionInfo(Paramstr(0));
// Construction du numéro de version à partir des différentes parties le constituant
// L'utilisation de la fonction Format nécessite l'ajout de l'unité SysUtils dans la clause uses.
{ with VersionApplication do
MaVersion:=Format('%d.%d.%d.%d', [FileMajorPart,
FileMinorPart,
FileBuildPart,
FilePrivatePart]);
Writeln('MaVersion '+MaVersion);
}
// Accés direct au numéro construit 1.2.3.4
Result:=VersionApplication.Fileversion;
end; |
