Connaître la version d'un fichier

Version imprimable

14/04/2007, 00h01
Golork

Connaître la version d'un fichier

Bonjour tout le monde,
je souhaiterais, comme dit le titre, connaître la version d'un fichier et principalement d'un exécutable.
Je m'explique : quand vous faites "Propriétés" sur un fichier (clic droit) vous pouvez avoir plusieurs onglet dont un qui est "Version". Une fois dedans vous avez des informations et une liste d'élément pouvant donner des infos plus précises.
Moi j'aurais besoin de connaitre, par programmation, l'élément "Version du fichier" et pas celle que l'on as en haut de la fenêtre ne me donne pas toujours la bonne information.
Voilà j'espère que vous avez compris ma demande et vous remercie pour vos suggestions. :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function GetVersion(const NomApp: string): string;
var
  VerSize : Dword;
  Zero : THandle;
  PBlock : Pointer;
  PS : Pointer;
  Size : Uint;
begin
  VerSize := GetFileVersionInfoSize(PChar(NomApp), Zero);
  if VerSize = 0 then Exit;
  try
    GetMem(PBlock, VerSize);
    GetFileVersionInfo(PChar(NomApp), 0, VerSize, PBlock);
    VerQueryValue(PBlock, PChar('\\StringFileInfo\\040C04E4\\ProductVersion'),PS, Size);
    Result := StrPas(PS);
  finally
    FreeMem(PBlock);
  end;
end;

ceci devrait correspondre a tes besoins

Ma solution

Une autre solution

A toi de voir

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
25
26
27
28
29
30
31
32
 
 
//***********************************
// Renvoi le numero de version de l'application
//***********************************
Function RenvoiVersion():String;
var
 FileName: string;
 InfoSize, Wnd: DWORD;
 VerBuf: Pointer;
 FI: PVSFixedFileInfo;
 VerSize: DWORD;
begin
 Result  := '';
 FileName := Application.ExeName;
 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, PathDelim, 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;

Pascal

14/04/2007, 13h25
Golork

le code de kaféine ne marche pas !!
j'ai une erreur de ce style :
Violation d'accès à l'adresse 0040404B dans le module 'Project1.exe'. Lecture de l'adresse 01C674FE

je vais essayer le code de pascal et merci pour vos infos !!;)

Par ErazerZ:

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
25
26
27
28
29
30
31
32
33
34
{
BlockKeys:
  CompanyName
  FileDescription
  FileVersion
  InternalName
  LegalCopyright
  OriginalFilename
  ProductName
  ProductVersion
}
function GetFileVersionInfo(Filename, BlockKey: String): String;
var
  vSize, Dummy: DWORD;
  vData, Translation, Ip: Pointer;
begin
  Result := '';
  vSize := GetFileVersionInfoSize(PChar(Filename), Dummy);
  if (vSize >0) then
  begin
    GetMem(vData, vSize);
    try
      GetFileVersionInfoA(PChar(Filename), 0, vSize, vData);
      if vData = nil then Exit;
      VerQueryValue(vData, '\\VarFileInfo\\Translation', Translation, vSize);
      if Translation = nil then Exit;
      VerQueryValue(vData, PChar(Format('\\StringFileInfo\\%.4x%.4x\\%s', [LOWORD(LongInt(Translation^)), HIWORD(LongInt(Translation^)), BlockKey])), Ip, vSize);
      if Ip = nil then Exit;
      SetString(Result, PChar(Ip), vSize -1);
    finally
      FreeMem(vData);
    end;
  end;
end;