Discussion :

[Bernard B]

Bonjour,
Dans les informations de version que Delphi intègre dans un exe, figure le numéro de version que je récupère via ce code :

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
iBufferSize := GetFileVersionInfoSize(PChar(sFileName), iDummy);
  if (iBufferSize > 0) then
  begin
    GetMem(pBuffer, iBufferSize);
    try
    // get fixed file info (language independent)
    GetFileVersionInfo(PChar(sFileName), 0, iBufferSize, pBuffer);
    VerQueryValue(pBuffer, '\', pFileInfo, iDummy);
    // read version blocks
    iVer[1] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
    iVer[2] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);
    iVer[3] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
    iVer[4] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);
    finally
      FreeMem(pBuffer);
    end;
    // format result string
    Result := Format(Fmt, [iVer[1], iVer[2], iVer[3], iVer[4]]);
  end;

Delphi intègre aussi les informations de date et heure de compilation, que je souhaite récupérer pour afficher dans une fenêtre d'infos sur l'application, mais je n'ai pas trouvé comment les récupérer.
Je ne sais pas quoi mettre dans le VerQueryValue.
Merci de votre aide.

[Andnotor]

Le PE Header contient un TimeStamp mais pas les infos de version.
Pourquoi ne pas utiliser simplement FileAge sur Application.ExeName ?

[Paul TOTH]

personnellement j'utilise un fichier ressource (plus facile à suivre sur SVN)

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
 
1 VERSIONINFO
FILEVERSION 2016,5,12,1805
PRODUCTVERSION 1,11,3,0
FILETYPE 1 {
	BLOCK "StringFileInfo" {
		BLOCK "040C04E4" {
			VALUE "FileDescription", "Mon produit à moi\000"
			VALUE "FileVersion", "2016.5.12.1805\000"
			VALUE "LegalCopyright", "©2016 Execute SARL\000"
			VALUE "ProductName", "MyProduct\000"
			VALUE "ProductVersion", "1.11.3.0\000"
			VALUE "Comment", "http://www.execute.fr\000"
		}
	}
	BLOCK "VarFileInfo" {
		VALUE "Translation", 0x040C, 0x04E4
	}
}

J'utilise donc FileVersion pour stocker la date yyy.mm.dd.hhnn et le ProductVersion pour la version du produit. Ce n'est pas exactement une date de compilation mais plus la date d'upload dans SVN...qui doit donner toujours exactement la même application.

et pour lire la version

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
 
function GetVersion: string;
var
  FileName   : string;
  VersionInfo: DWORD;
  InfoSize   : Cardinal;
  InfoData   : array of Byte;
  FixedInfo  : PVSFixedFileInfo;
  Version    : PChar;
begin
  Result := 'DEBUG';
  FileName := ParamStr(0);
  InfoSize := GetFileVersionInfoSize(PChar(FileName), VersionInfo);
  if InfoSize = 0 then
    Exit;
  SetLength(InfoData, InfoSize);
  if not GetFileVersionInfo(PChar(FileName), VersionInfo, InfoSize, @InfoData[0]) then
    Exit;
  if not VerQueryValue(@InfoData[0], '\', Pointer(FixedInfo), InfoSize) then
    Exit;
 
// version textuelle ?
  if Loword(FixedInfo.dwProductVersionLS) = 0 then
  begin
    if VerQueryValue(@InfoData[0], '\StringFileInfo\040C04E4\ProductVersion', Pointer(Version), InfoSize) then
    begin
      Result := 'V' + Version;
      Exit;
    end;
  end;
 
// sinon construire un numéro de version binaire
  Result := Format('V%d.%d.%d', [Hiword(FixedInfo.dwProductVersionMS), Loword(FixedInfo.dwProductVersionMS), Hiword(FixedInfo.dwProductVersionLS)]);
 
// avec des Release Candidates
  if Loword(FixedInfo.dwProductVersionLS) <> 0 then
    Result := Result + ' RC' + IntToStr(Loword(FixedInfo.dwProductVersionLS));
end;

[Bernard B]

Ok pour le fichier de ressources, mais delphi insère un champ LastCompilesTime, on doit bien le retrouver en quelque part ?

[foetus]

Cela peut-être simplement la date de modification de ton exécutable

[Paul TOTH]

Ok pour le fichier de ressources, mais delphi insère un champ LastCompilesTime, on doit bien le retrouver en quelque part ?

ça n'existe pas par défaut dans Delphi, j'ai l'impression que ça vient de CNPack
https://searchcode.com/codesearch/view/13574541/

ce code semble lié à cette information également
http://www.michael-puff.de/Programmi...imeStamp.shtml

[Bernard B]

Bien vu Paul, j'ai bien le CnPack installé
Je vais regarder les deux liens pour voir comment exploiter cette donnée.
Encore Merci