Discussion :

[tarekk73]

bon jour

pour recuperer la version de mon application développer sous D6 j'utilise 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
Function GetFileVersion(): string; 
const 
Flangid : string = '040C'; 
var 
loc_InfoBufSize : integer; 
loc_InfoBuf : PChar; 
loc_VerBufSize : integer; 
loc_VerBuf : PChar; 
 
Begin 
//recupere la version de l'exe !!!! 
loc_InfoBufSize := GetFileVersionInfoSize(PChar(Application.exename),DWORD(loc_InfoBufSize)); 
if loc_InfoBufSize > 0 then 
begin 
loc_InfoBuf := AllocMem(loc_InfoBufSize); 
GetFileVersionInfo(PChar(Application.exename),0,loc_InfoBufSize,loc_InfoBuf); 
VerQueryValue(loc_InfoBuf,PChar('StringFileInfo\'+ FLangId+'04E4\FileVersion'),Pointer(loc_VerBuf),DWORD(loc_VerBufSize)); 
result := loc_VerBuf; 
FreeMem(loc_InfoBuf, loc_InfoBufSize); 
end; 
// fin de recup de la version 
end;

et dans mon project
"Projet"/"Option du projet" puis l'onglet "Information de version" permet d'incrémenter automatiquement les versions des programmes à chaque compilation.
je coche cette casse
mais la version du project ne changera pas a chaque compilation

merci d'avance..

[Pascal Fonteneau]

Voici la fonction que j'utilise sous D2007 .

si cela peut t'aider

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
25
26
27
28
 
Function RenvoiVersion(NomAppli : String ):String;
var
  FileName: string;
  InfoSize, Wnd: DWORD;
  VerBuf: Pointer;
  FI: PVSFixedFileInfo;
  VerSize: DWORD;
begin
    Result  := '';
    FileName := NomAppli;
    InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
    if InfoSize <> 0 then
    begin
      GetMem(VerBuf, InfoSize);
      try
        if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
          if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then
          Begin
           Result  := InttoStr(StrToInt(Copy(IntToHex(FI.dwFileVersionMS,8),1,4)));
           Result  := Result +'.'+InttoStr(StrToInt(Copy(IntToHex(FI.dwFileVersionMS,8),5,4)));
           Result  := Result + InttoStr(StrToInt(Copy(IntToHex(FI.dwFileVersionLS,8),1,4)));
          end;
      finally
        FreeMem(VerBuf);
      end;
    end;
  end;

[Rayek]

et dans mon project
"Projet"/"Option du projet" puis l'onglet "Information de version" permet d'incrémenter automatiquement les versions des programmes à chaque compilation.
je coche cette casse
mais la version du project ne changera pas a chaque compilation

merci d'avance..

Le compteur ne s'incrémente que lors de l'utilisation de Construire (Shift + F9, Projet/Construire) et pas compiler (F9, Ctrl + F9 ou Projet/compiler)

[tarekk73]

Le compteur ne s'incrémente que lors de l'utilisation de Construire (Shift + F9, Projet/Construire) et pas compiler (F9, Ctrl + F9 ou Projet/compiler)

exactement rayek c'est que je cherche merci, merci aussi pour Pascal Fonteneau