LECTURE DU NUMÉRO DE VERSION DE L'APPLICATION

Commentaire de Delphiprog le 09/05/2002 23:42:16 administrateur CS

Dans le cas d'une DLL, l'activation du numéro de version dans Options/Projet est accessible  mais ne produit aucun effet (du moins sous Delphi 4).
Pour pouvoir lire le n° de version à l'éxécution, insérer {$R *.res} dans le source du projet, avant le begin.

Commentaire de jmp77 le 02/03/2005 09:57:23

Hello,

Super source nono40.

Par contre je n'arrive pas à obtenir le numéro de version dans les dll. A chaque fois que j'essaie je recupere toujours la version de l'exe qui lance la dll.
Ceci est normal car S := Application.ExeName; renvoi le chemin de l'exe j'ai essayer en mettant le chemin de ma dll en dur S := C:\data\madll.dll et là hop ca fonctionne tres bien.
Est ce que vous auriez un remede svp?

Bonne continuation,
JMP77.

Commentaire de jmp77 le 02/03/2005 10:57:14

Re,

C'est bon j'ai trouvé grave à ce site :
http://www.martinstoeckli.ch/delphi/delphi.html#AppName

Voici avec cette modification le numéro de version d'un exe ou d'une dll fonctionne :

function LectureVersion:string;
//D'après le code de nono40 http://www.delphifr.com/code.aspx?ID=11847

    function Sto_GetModuleName: String;
   //D'apres http://www.martinstoeckli.ch/delphi/delphi.html#AppName
   var
   szFileName: array[0..MAX_PATH] of Char;

   begin
   GetModuleFileName(hInstance, szFileName, MAX_PATH);
   Result := szFileName;
   end
var
    S        : string;
    Taille  : DWord;
    Buffer  : PChar;
    VersionPC : PChar;
    VersionL    : DWord;

begin
    Result:='';
    {--- on demande la taille des informations sur l'application ---}
    S := Sto_GetModuleName;//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;

Commentaire de jmp77 le 19/09/2005 13:50:11

Hello,

Ca ne fonctionne qu'avec l'exe que tu as compilé.

++,
JMP77.