Lecture du numéro de version de l'application

Télécharger le projet
Commenter

Description

Voici une petite fonction qui lit le numéro de version de votre application.
Pour que votre application contienne un numéro de version il faut aller dans Menu Projet\Options... puis dans l'onglet 'Informations de Version' cocher la case 'Inclure les informations de version dans le projet'

Ce numéro apparaît aussi dans l'explorateur windows par un click droit sur votre application puis Propriétés\Onglet version.

--- Nono du Moulin ---

Source / Exemple : 


Function LectureVersion:String;
Var
  S         : String;
  Taille    : DWord;
  Buffer    : PChar;
  VersionPC : PChar;
  VersionL  : DWord;

Begin
  Result:='';
  {--- On demande la taille des informations sur l'application ---}
  S := Application.ExeName;
  Taille := GetFileVersionInfoSize(PChar(S), Taille);
  If Taille>0
  Then Try
  {--- Réservation en mémoire d'une zone de la taille voulue ---}
    Buffer := AllocMem(Taille);
  {--- Copie dans le buffer des informations ---}
    GetFileVersionInfo(PChar(S), 0, Taille, Buffer);
  {--- Recherche de l'information de version ---}
    If VerQueryValue(Buffer, PChar('\StringFileInfo\040C04E4\FileVersion'), Pointer(VersionPC), VersionL)
      Then Result:=VersionPC;
  Finally
    FreeMem(Buffer, Taille);
  End;
End;

Conclusion :


P.S. J'ai écrit cette procédure car celle dans l'aide de Delphi ne fonctionne pas sans modifications, du moins par sur mon poste. Quelqu'un a-t-il eu le même problème ?
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Nono40)