Récupérer le numéro de version de votre application

Date de publication : 2 juin 2002

Date de mise à jour (présentation) : 12 mai 2006

Par Alexandre TRANCHANT ( CV )
  Autres articles

Fonction Delphi permettant de récupérer le numéro de version de votre application.

    function ApplicationVersion: String;
    var
      VerInfoSize, Dummy: DWord;
      VerInfo: Pointer;
      VerValueSize: DWord;
      VerValue: PVSFixedFileInfo;
    begin
      VerInfoSize:=GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
      If VerInfoSize<>0 then
      begin
        GetMem(VerInfo, VerInfoSize);
        GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
        VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
        with VerValue^ do
        begin
          Result:='Version '+IntTostr(dwFileVersionMS shr 16);
          Result:=Result+'.'+IntTostr(dwFileVersionMS and $FFFF);
          Result:=Result+'.'+IntTostr(dwFileVersionLS shr 16);
          Result:=Result+'.'+IntTostr(dwFileVersionLS and $FFFF);
        end;
        FreeMem(VerInfo, VerInfoSize);
      end
      else
        Result:='Version Inconnue';
    end;
            

Attention, n'oubliez pas de cocher la case "Inclure le numéro de version" dans le menu : Projets > Options de projets > l'Onglet Information de version