tu veux dire manuellement car si c'est fait automatiquement par code c'est pas chiant
tiens voici un fonction tirée de xProcs.pas de Stefan Böther
Function GetInfoVersion(szModuleName,Info:Ansistring):Ansistring;
var lVerInfoSize: LongInt;
lVerHandle: LongInt;
pVerData: PChar;
Buffer: Pointer;
lenBuffer: UINT;
begin
lVerInfoSize := GetFileVersionInfoSize(PCHAR(szModuleName), lVerHandle);
if lVerInfoSize = 0 then Exit;
GetMem(pVerData, lVerInfoSize);
if not GetFileVersionInfo(PCHAR(szModuleName), lVerHandle, lVerInfoSize, pVerData)
then Exit;
if VerQueryValue(pVerData, PCHAR(INfo),
Buffer, LenBuffer)
and (LenBuffer <> 0)
then begin
result := PCHAR(Buffer);
end;
FreeMem(pVerData, lVerInfoSize);
end;
tu l'utilises comme ça : label.caption := 'Version :'+GetInfoVersion(Application.ExeName,'\StringFileInfo\040C04E4\FileVersion';