Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
2 - NUMERO DE VERSION DE L'APPLICATION

PRÉSENTATION : Lecture du numéro de version de l'exécutable tel qu'il apparait dans les options du projet.
ZIP : Téléchargez le zip APERÇUS :

NOTES : Pour que votre application contienne un numéro de version standard il faut suivre les opérations suivante :
- Menu Projet->Options...
- Onglet "Numéro de version"
- Cocher la case "Inclure les informations de version dans le projet"

Ce numéro apparait aussi dans l'explorateur lors d'un click droit sur le fichier .exe.
Ce source corrige celui donné en exemple dans l'aide de Delphi sur la lecture du numéro de version


CODE :
// Procédure de lecture du numéro de version de l'application
//
// Si le numéro de version est trouvé, la réponse est du style '2.1.3.154'
// Si le numéro de version n'est pas trouvé, la réponse est ''
//
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;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -