[Delphi 6] : Afficher les infos de versions

Marsh Posté le 29-06-2003 à 22:22:13

Commentfaire pour afficher (enfin, récupérer) à l'exécution les N° de version de l'exe sur lequel on travaille sans passer par un GetFileVersionInfo qui est un peu lourdingue... y'a pas moyen de les extraire de "Application" ?

Reply

Marsh Posté le 29-06-2003 à 22:22:13

Reply

Marsh Posté le 29-06-2003 à 22:43:10

Non, faut passer par cette fonction [:spamafote]

Tu mets le truc une fois pour toute dans une unit, que tu réutilises dans tes différents softs.

type
PFixedFileInfo = ^TFixedFileInfo;
TFixedFileInfo = record
Signature: DWord;
StrucVersion: DWord;
Minor: Word;
Major: Word;
Build: Word;
Release: Word;
FileFlagsMask: DWord;
FileFlags: DWord;
FileOS: DWord;
FileType: DWord;
FileSubtype: DWord;
FileDateMS: DWord;
FileDateLS: DWord;
end;

function GetFileInfo(const AFileName: string): TFixedFileInfo;
var
Handle, VersionSize: DWORD;
SubBlock: string;
Temp: Pointer;
Data: Pointer;
begin
SubBlock := '\';
VersionSize := GetFileVersionInfoSize(PChar(AFileName), Handle);
if VersionSize > 0 then
begin
GetMem(Temp, VersionSize);
try
if GetFileVersionInfo(PChar(AFileName), Handle, VersionSize, Temp) then
if VerQueryValue(Temp, PChar(SubBlock), Data, VersionSize) then
Result := PFixedFileInfo(Data)^;
finally
FreeMem(Temp);
end;
end else
RaiseLastOSError;
end;

function GetBuild(const AFileName: TFileName): string;
begin
with GetFileInfo(AFileName) do
Result := Format('%d.%d.%d.%d', [Major, Minor, Release, Build]);
end;