Obtenir la version du programme

Slt

via Delphi7 win32
comment doit-on procéder pour obtenir le numéro de version indiqué via Projet --> Options --> Informations de version

est-il possible d'obtenir le numéro via programmation???

Merci d'avance

Oui avec la fonction suivante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
function GetVersionInfo(FileNameVar:string): string;
var V1,       // Version majeure
     V2,       // Version mineure
     V3,       // Release
     V4: Word; // Construction
   VerInfoSize, VerValueSize, Dummy : DWORD;
   VerInfo : Pointer;
   VerValue : PVSFixedFileInfo;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(FileNameVar), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(FileNameVar), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
    begin
       V1 := dwFileVersionMS shr 16;
       V2 := dwFileVersionMS and $FFFF;
       V3 := dwFileVersionLS shr 16;
       V4 := dwFileVersionLS and $FFFF;
    end;
  Result := Text + IntToStr(V1) + '.' + IntToStr(V2) + '.' + IntToStr(V3) + ' Build: ' + IntToStr(V4);
  FreeMem(VerInfo, VerInfoSize);
end;

Et pour l'utiliser il faut appeler la fonction en lui passant comme paramètre l'executable à analyser...

Dans ton cas, c'est le programme lui-meme donc:

Code:

Label1.Caption := GetVersionInfo(ParamStr(0));

ou encore plus simple

Code:

label1.caption := GetVersionInfo(Application.exename);

Voila j'espère répondre à ta question

Je pense que c'est l'idée
je teste cela de suite et je te tiens informé
Merci

Merci c'était bien cela que j'espérais obtenir
je vais mtn traîter la chaîne retournée pour n'obtenir que le numéro (ex: 1.0.0.1)

Merci encore