versao do sistema é a data da compilaçao.

Delphi

22/01/2004

:?: É o seguinte a versão do meu sistema eu tenho q colocar o seguinte!!

VERSÃO 4.000

O 4 é padrao, do ano! o ponto tambem tem q esta la.
os 3 zeros é o seguinte!!

sao a quantidade de dias que tem entre a DATA FIXA que é 01/01/2004 e a data de compilação que é a minha ultima data q eu fiz modificação do sistema!! :?:


Comanchepm

Comanchepm

Curtidas 0

Respostas

Maicongabriel

Maicongabriel

22/01/2004

No Delphi, menu ´Project´/´Options´, aba ´Version Info´

Divirta-se :shock:


GOSTEI 0
Nigro

Nigro

22/01/2004

Isso.. e lá também tem a opção de auto-incrementar a versão a cada Build, e não a cada compilação.


GOSTEI 0
Vinicius2k

Vinicius2k

22/01/2004

colega,

para mostrar a versão :

Código: 
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
Rafaelunp

Rafaelunp

22/01/2004

colega, para mostrar a versão : [quote:0a9db1aa5d=´Beppe´]
Código: 
function GetFileVersion(const Filename: String): String; 

...

end;
Usa assim: Caption := ´Versão: ´ + GetFileVersion(Application.ExeName);
[/quote:0a9db1aa5d]

Cara,
Copiei o código e fiz do jeito q vc disse, mas nao está funcionando... fica vazio o label onde estou jogando a versão... Onde tem Application.Exename é pra deixar isso mesmo? Estou jogando esse código em um form de ajuda (Sobre). E não sobre o Form principal... Tem alguma coisa haver? Onde estou errando!?!


GOSTEI 0
Vinicius2k

Vinicius2k

22/01/2004

Rafael,

para q os resources de versão sejam incluídos na sua aplicação vc precisa habilitar em [color=red:b47197c16a]Project->Options->Version Info[/color:b47197c16a] a opção [color=green:b47197c16a]Include version information in project[/color:b47197c16a]... fazendo isso não tem erro...

seu label só está vazio porque sua aplicação não tem informações de versão...

T+


GOSTEI 0
Rafaelunp

Rafaelunp

22/01/2004

Rafael, para q os resources de versão sejam incluídos na sua aplicação vc precisa habilitar em [color=red:b2943307a5]Project->Options->Version Info[/color:b2943307a5] a opção [color=green:b2943307a5]Include version information in project[/color:b2943307a5]... fazendo isso não tem erro... seu label só está vazio porque sua aplicação não tem informações de versão... T+


Vinicius,

Fiz isso, mas no label aparece a versão que está no ´Version Info´ (1.0.0.0) Quero que apareca a data da compilação... Verifiquei o nome que coloquei no label e é diferente da ´key´ que está no ´version Info´.
Ex:
Version Info
DateVersion: 1.0.0.0

Label Name = DataVersao

DataVersao.Caption := GetFileVersion(Application.ExeName);

O que está errado? :? :(


GOSTEI 0
Vinicius2k

Vinicius2k

22/01/2004

Rafael,

Na verdade, nada errado... eu é interpretei de forma errada, inclusive a questão inicial do colega [b:6507eebd04]comanchepm[/b:6507eebd04]...

As informações de versão que a rotina que postei extrai são as informações oficiais do arquivo... para pegar a data de criação é, relativamente, bem mais simples... é só fazer uma chamada à função color=red]FileAge[/color]... um exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var DataArquivo: TDateTime;
begin
 DataArquivo:= FileDateToDateTime(FileAge(Application.ExeName));
 Showmessage(DateToStr(DataArquivo));
 Showmessage(TimeToStr(DataArquivo));
end;


partindo deste exemplo, vc pode trabalhar com a função Copy, por exemplo, sobre a String resultante da conversão e pegar qualquer parte da data e/ou hora que vc quiser para jogar e um TLabel, por exemplo...

espero ter ajudado agora...


GOSTEI 0
Vinicius2k

Vinicius2k

22/01/2004

color=red]FileAge[/color]


desculpe... postei errado considere apenas ´FileAge´...


GOSTEI 0
Rafaelunp

Rafaelunp

22/01/2004

Perfeito cara,

era isso mesmo!!
Valeu!! :D :D


GOSTEI 0
Vinicius2k

Vinicius2k

22/01/2004

falow ! :wink:


GOSTEI 0
POSTAR