Discussion :

[jaduta]

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

[MedGIR]

Oui avec la fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou encore plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[jaduta]

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

[jaduta]

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