Fórum Captura do número da versão do programa #295335

function BuscaVersao(FileName: string; var Version: string): boolean;
var
Size, Size2: DWord;
Pt, Pt2: Pointer;
Major, Minor, Release, Build: word;
begin
Result := false;
Size := GetFileVersionInfoSize(pchar(FileName), Size2);
if Size > 0 then
begin
GetMem(Pt, Size);
GetFileVersionInfo(pchar(FileName), 0, Size, Pt);
VerQueryValue(Pt, ´\´, Pt2, Size2);
with TVSFixedFileInfo(Pt2^) do
begin
Major := HiWord(dwFileVersionMS);
Minor := LoWord(dwFileVersionMS);
Release := HiWord(dwFileVersionLS);
Build := LoWord(dwFileVersionLS);
end;
Version := Format(´¬d.¬d¬d b¬d´, [Major, Minor, Release, Build]);
FreeMem(Pt, Size);
Result := true;
end;
end;