Discussion :

[Papy214]

Bonjour

Petite question d'avant week-end !
Dans les informations de version d'un projet, on définit la version du fichier et la version du produit.
La version du fichier, je sais la récupérer par code en décortiquant le résultat de GetFileVersionInfoSize.
Mais la version du produit, quelle est l'instruction magique pour la retrouver ?

[gbegreg]

Bonjour,

Voici la fonction que j'utilise dans mes applications VCL pour récupérer les informations du projet pour les afficher par exemple dans une fenêtre "A propos" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function GetVersionString(FileName: string; VerStr: string): string;
var
  Size    : DWORD;
  Handle  : DWORD;
  Len     : UINT;
  Buffer  : PChar;
  Value   : PChar;
  TransNo : PLongInt;
  SFInfo  : string;
begin
  Result := '';
  Size := GetFileVersionInfoSize(PChar(FileName), Handle);
  if Size > 0 then begin
    Buffer := AllocMem(Size);
    try
      GetFileVersionInfo(PChar(FileName), 0, Size, Buffer);
      VerQueryValue(Buffer, PChar('VarFileInfo\Translation'), Pointer(TransNo), Len);
      SFInfo := Format('%s%.4x%.4x%s%s%', ['StringFileInfo\', LoWord(TransNo^), HiWord(Transno^), '\', VerStr]);
      if VerQueryValue(Buffer, PChar(SFInfo), Pointer(Value), Len) then Result := Value;
    finally
      if Assigned(Buffer) then
        FreeMem(Buffer, Size);
    end;
  end;
end;

Et voici des exemples d'appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
showmessage(GetVersionString(Application.ExeName, 'ProductVersion'));
showmessage(GetVersionString(Application.ExeName, 'FileVersion'));

Le premier paramètre est le fichier à analyser, le second est une chaine de caractères qui peut prendre une des valeurs indiquées dans le paragraphe Remarks de la doc Microsoft : https://docs.microsoft.com/en-us/win...verqueryvaluea

[SergioMaster]

Bonjour,

en complément ou en plus, j'utilisais ce composant version D3 (pas du jeune).
Il faudrait que je recherche ce que j'ai avec D2010 et il me semble que j'ai aussi fait un truc avec FMX

[Papy214]

Génial, merci à tous les deux !
Je ne pensais pas qu'il fallait passer aussi par cette api.

[Papy214]

Sans aller jusqu'au composant à installer, j'ai codé comme suit 2 fonctions et une procédure qui pourraient être utiles à d'autres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
unit UFileVersionOptions;
 
interface
 
uses Winapi.Windows, Vcl.Forms, System.SysUtils, System.Classes, System.Rtti;
 
type
  TOptionName = (CompanyName, FileDescription, FileVersion, InternalName, LegalCopyright, LegalTradeMarks, OriginalFileName, ProgramID, ProductName,
    ProductVersion, Comments);
  TOptionNames = set of TOptionName;
 
function GetoptionValue(FileName: string; OptionName: TOptionName): string;
 
function GetProductVersion: string;
 
procedure GetAllOptions(FileName: string; Resultat: TStrings);
 
implementation
 
function GetoptionValue(FileName: string; OptionName: TOptionName): string;
var
  Size:    DWORD;
  Handle:  DWORD;
  Len:     UINT;
  Buffer:  PChar;
  Value:   PChar;
  TransNo: PLongInt;
  SFInfo:  string;
  Opt:     string;
begin
  Result := '';
  Opt    := TRttiEnumerationType.GetName<TOptionName>(OptionName);
  Size   := GetFileVersionInfoSize(PChar(FileName), Handle);
  if Size > 0 then
  begin
    Buffer := AllocMem(Size);
    try
      GetFileVersionInfo(PChar(FileName), 0, Size, Buffer);
      VerQueryValue(Buffer, PChar('VarFileInfo\Translation'), Pointer(TransNo), Len);
      SFInfo := Format('%s%.4x%.4x%s%s%', ['StringFileInfo\', LoWord(TransNo^), HiWord(TransNo^), '\', Opt]);
      if VerQueryValue(Buffer, PChar(SFInfo), Pointer(Value), Len) then
        Result := Value;
    finally
      if Assigned(Buffer) then
        FreeMem(Buffer, Size);
    end;
  end;
end;
 
procedure GetAllOptions(FileName: string; Resultat: TStrings);
var
  Size:    DWORD;
  Handle:  DWORD;
  Len:     UINT;
  Buffer:  PChar;
  Value:   PChar;
  TransNo: PLongInt;
  SFInfo:  string;
  Opt:     TOptionName;
  N:       string;
begin
  if FileName.IsEmpty then
    FileName := Application.ExeName;
  if not Assigned(Resultat) then
    Resultat := TStringList.Create;
  Size       := GetFileVersionInfoSize(PChar(FileName), Handle);
  if Size > 0 then
  begin
    Buffer := AllocMem(Size);
    try
      GetFileVersionInfo(PChar(FileName), 0, Size, Buffer);
      VerQueryValue(Buffer, PChar('VarFileInfo\Translation'), Pointer(TransNo), Len);
 
      for Opt := Low(TOptionName) to High(TOptionName) do
      begin
        N      := TRttiEnumerationType.GetName<TOptionName>(Opt);
        SFInfo := Format('%s%.4x%.4x%s%s%', ['StringFileInfo\', LoWord(TransNo^), HiWord(TransNo^), '\', N]);
        if VerQueryValue(Buffer, PChar(SFInfo), Pointer(Value), Len) then
          Resultat.Add(N + '=' + Value);
      end;
 
    finally
      if Assigned(Buffer) then
        FreeMem(Buffer, Size);
    end;
  end;
end;
 
function GetProductVersion: string;
var
  T: TArray<string>;
begin
  Result := GetoptionValue(Application.ExeName, TOptionName.ProductVersion);
  T      := Result.Split(['.']);
  if Length(T) > 3 then
    Result := Format('%s.%s.%s', [T[0], T[1], T[2]]);
end;
 
end.

[Andnotor]

@Papy214

Je me permets trois petites remarques.

1. Juste pour la clarté du code, le nom de l'énumération devrait être au singulier (on en utilise qu'une à la fois) et réserver les pluriels pour les ensembles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
type
  TOptionName  = (CompanyName, ...);
  TOptionNames = set of TOptionName;

2. Les informations de version peuvent inclure des données localisées mais GetoptionValue/GetAllOptions récupéreront systématiquement la première langue.

3. GetAllOptions n'énumère que les éléments bien connues mais d'autres entrées peuvent être présentes. Par exemple les Delphi récents ajoutent ProgramID. Pour vraiment récupérer l'ensemble (sans connaitre à l'avance ces éléments), il faudrait plonger plus profondément comme démontré ici.