Admin Fondateur
Nombre de messages : 197 Age : 40 Localisation : Tlemcen ( Algérie ) Date d'inscription : 04/12/2006
| Sujet: Comment récupérer le numéro de version de mon application ? Ven 12 Jan - 6:33 | |
| Voici une fonction qui récupère cette information :
- Code:
-
function ApplicationVersion: String var VerInfoSize, VerValueSize, Dummy: DWord; VerInfo: Pointer; VerValue: PVSFixedFileInfo; begin VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy); {Deux solutions : } if VerInfoSize <> 0 then {- Les info de version sont inclues } begin {On alloue de la mémoire pour un pointeur sur les info de version : } GetMem(VerInfo, VerInfoSize); {On récupère ces informations : } GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo); VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize); {On traite les informations ainsi récupérées : } with VerValue^ do begin Result := IntTostr(dwFileVersionMS shr 16); Result := Result + '.' + IntTostr(dwFileVersionMS and $FFFF); Result := Result + '.' + IntTostr(dwFileVersionLS shr 16); Result := Result + '.' + IntTostr(dwFileVersionLS and $FFFF); end;
{On libère la place précédemment allouée : } FreeMem(VerInfo, VerInfoSize); end
else {- Les infos de version ne sont pas inclues } {On déclenche une exception dans le programme : } raise EAccessViolation.Create('Les informations de version de sont pas inclues'); end; Il faut pour que cela fonctionne que vous spécifiez l'option Inclure les informations de version dans le projet dans menu Projet|Option|Information de version, ainsi la fonction retournera '1.0.0.0' par exemple, sinon la fonction déclenchera une erreur EAccessViolation. | |
|