Discussion :

[SergioMaster]

Bonjour,

j'en suis toujours à la vieille méthode (FAQ-Comment-recuperer-le-numero-de-version-de-mon-application) pour obtenir ces infos.
Il n'y a toujours pas eu d'encapsulation pour ça avec les Versions XE et l'arrivée de FMX+multi-OS?
Avec D3 j'utilisais un composant tiers TVersionResource, y aurait-il un équivalent chez TMS ou autre ?

[Ph. B.]

Bonjour,

j'en suis toujours à la vieille méthode (FAQ-Comment-recuperer-le-numero-de-version-de-mon-application) pour obtenir ces infos.
Il n'y a toujours pas eu d'encapsulation pour ça avec les Versions XE et l'arrivée de FMX+multi-OS?

Il y a une encapsulation partielle (windows only ) dans l'unité System.SysUtils :

Code :

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

1
2
3
function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean;
function GetFileVersion(const AFileName: string): Cardinal;
function GetProductVersion(const AFileName: string; var AMajor, AMinor, ABuild: Cardinal): Boolean;

Avec D3 j'utilisais un composant tiers TVersionResource, y aurait-il un équivalent chez TMS ou autre ?

Dans la JCL, unité JclFileUtils.pas, il y a "TJclFileVersionInfo"...

[SergioMaster]

Dans la JCL, unité JclFileUtils.pas, il y a "TJclFileVersionInfo"...

Oui, c'est ce que mes dernières recherches m'ont données de plus pertinent (et de plus facile à utiliser), surtout que je voulais aussi obtenir les autres informations et pas que le numéro

Merci du moins pour la partie Windows

[Papy214]

pour OSX

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
 
unit UnitFileInfos.mac;
 
interface
 
{$IFDEF MACOSX}
function FileVersion(): string;
{$ENDIF}
 
implementation
 
{$IFDEF MACOSX}
uses Macapi.CoreFoundation, Macapi.Foundation;
 
function FileVersion(): string;
var
  CFStr: CFStringRef;
  Range: CFRange;
begin
  CFStr := CFBundleGetValueForInfoDictionaryKey(CFBundleGetMainBundle,
    kCFBundleVersionKey);
  Range.location := 0;
  Range.length := CFStringGetLength(CFStr);
  SetLength(Result, Range.length);
  CFStringGetCharacters(CFStr, Range, PChar(Result));
end;
{$ENDIF}
 
end.

à tester mais un collègue m'assure que ça fonctionne :-)