Fórum Exibindo a versão do meu programa #194452
12/11/2003
0
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
Curtir tópico
+ 0Posts
12/11/2003
Joilson_gouveia
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
12/11/2003
Orlando Frade
ao compilar o programa ele deu um erro.
Eu tenho que declarar algum unit?
Gostei + 0
12/11/2003
Beppe
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
12/11/2003
Orlando Frade
Muito Obrigado
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)