Exibindo a versão do meu programa

Delphi

12/11/2003

Amigos,
como eu faço para obter a versão do meu programa.
Eu quero exibir no caption do form principal.
Ex:
Form1.Caption := ´Meu programa ´ + versao;
// Exibiria assim -> Meu programa 1.0.1.12


Orlando Frade

Orlando Frade

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

12/11/2003

Eu uso a função abaixo:

function RetornaVersao:String;
Var
Name:String;
x: TFixedFileInfo;
begin
Name:= Application.ExeName;
x:= FileInfo(name);
Result :=IntToStr(x.wFileVersionLS)+´.´+ // 1 Major
IntToStr(x.wFileVersionMS)+´.´+ // 2 Minor
IntToStr(x.wProductVersionLS)+´.´+ // 3 Release
IntToStr(x.wProductVersionMS); // 4 Build

end;

Vc usuaria assim:
Ex:
Form1.Caption := ´Meu programa ´ + RetornaVersao;
// Exibiria assim -> Meu programa 1.0.1.12


GOSTEI 0
Orlando Frade

Orlando Frade

12/11/2003

Eu uso a função abaixo: function RetornaVersao:String; Var Name:String; x: TFixedFileInfo; begin Name:= Application.ExeName; x:= FileInfo(name); Result :=IntToStr(x.wFileVersionLS)+´.´+ // 1 Major IntToStr(x.wFileVersionMS)+´.´+ // 2 Minor IntToStr(x.wProductVersionLS)+´.´+ // 3 Release IntToStr(x.wProductVersionMS); // 4 Build end; Vc usuaria assim: Ex: Form1.Caption := ´Meu programa ´ + RetornaVersao; // Exibiria assim -> Meu programa 1.0.1.12


ao compilar o programa ele deu um erro.
Eu tenho que declarar algum unit?


GOSTEI 0
Beppe

Beppe

12/11/2003

function GetFileVersion(const Filename: String): String;
type
  TVersionInfo = packed record
    Dummy: array[0..7] of Byte;
    V2, V1, V4, V3: Word;
  end;
var
  Zero, Size: Cardinal;
  Data: Pointer;
  VersionInfo: ^TVersionInfo;
begin
  Size := GetFileVersionInfoSize(Pointer(Filename), Zero);
  if Size = 0 then
    Result := ´´
  else
  begin
    GetMem(Data, Size);
    try
      GetFileVersionInfo(Pointer(Filename), 0, Size, Data);
      VerQueryValue(Data, ´\´, Pointer(VersionInfo), Size);
      Result := Format(´¬d.¬d.¬d.¬d´, [VersionInfo.V1, VersionInfo.V2, VersionInfo.V3, VersionInfo.V4]);
    finally
      FreeMem(Data);
    end;
  end;
end;


Usa assim: Caption := ´Versão: ´ + GetFileVersion(Application.ExeName);


GOSTEI 0
Orlando Frade

Orlando Frade

12/11/2003

Deu certo.
Muito Obrigado


GOSTEI 0
POSTAR