Vers�o do sistema...

Question

Na propriedade de um projeto a gente pode controlar a vers�o do sistema. Gostaria de saber se � poss�vel controlar a vers�o com apenas no formato do exemplo abaixo:

Atual: 2.0.0.1

Colocar no formato tipo: 2.0

Motta · Answer

Segue-se o padr�o windows (version,minor version,release,build), o que vc pode fazer � s� exibir at� a minor, eu particularmente sigo o padr�o pois � abrangente e cobre todos os casos poss�veis de manuten��o

Galodoido · Answer

Ol� pessoal!J� que o assunto � vers�o, algu�m sabe como fa�o para extrair esta vers�o em tempo de execu��o do arquivo? Exibir na tela inicial por exemplo, sem precisar alterar. Atrav�s de uma fun��o ou outra coisa parecida?...

Gandalf.nho · Answer

Eu uso um componente chamado EPInfo. Procure em [url]//www.chez.com/epedrazzi[/url]...

Galodoido · Answer

Eu uso um componente chamado EPInfo. Procure em http://www.chez.com/epedrazzi

gandalf.nho

N�o Consigo acessar o site.
O componente � gratuito? Poderia envi�-lo para meu e-mail?

antonio@officeinformatica.com.br

Desde j�, obrigado.

Gandalf.nho · Answer

Desculpe, n�o sabia que o site n�o existia mais. Mas descolei um link pra pegar ele Torry�s [url]//www.torry.net/vcl/system/versioninfo/info.zip[/url]...

Tpoeta · Answer

Opa gente, gostaria quem me esclarececem uma d�vida, se poss�vel...

� que vi v�rios t�picos deste tipo por aqui, mas ainda n�o achei como eu fa�o pra colocar num LABEL.CAPTION por exemplo, a vers�o que est� l� na informa��es do Delphi...

Algu�m sabe? S� pode ser usando esse componente?

Obrigado

Motta · Answer

O comp. citado deve ter um m�todo que retorna uma string com a vers�o....

Guilherme · Answer

tenta getversion !!!! mas nao sei como trasformar os dados em string...

Gandalf.nho · Answer

No caso do EPInfo eu fa�o assim para obter a vers�o:[code:1:ea1b0e919e]EPInfoExe1.ExeName := Application.ExeName;EPInfoExe1.Execute;Label1.Caption := EPInfoExe1.FileVersion;[/code:1:ea1b0e919e]...

Lindomar.des · Answer

Colega,Uso o seguinte c�digo:function Versao(aplicacao:string):string;varVerInfoSize:  DWORD;VerInfo:      Pointer;VerValueSize: DWORD;VerValue:     PVSFixedFileInfo;Dummy:        DWORD;V1, V2, V3, V4: Word;Prog : string;beginProg := aplicacao;VerInfoSize := GetFileVersionInfoSize(PChar(prog), Dummy);GetMem(VerInfo, VerInfoSize);GetFileVersionInfo(PChar(prog), 0, VerInfoSize, VerInfo);VerQueryValue(VerInfo, ��, Pointer(VerValue), VerValueSize);with VerValue^ do   begin     V1 := dwFileVersionMS shr 16;     V2 := dwFileVersionMS and $FFFF;     V3 := dwFileVersionLS shr 16;     V4 := dwFileVersionLS and $FFFF;   end;FreeMem(VerInfo, VerInfoSize);result := Copy (IntToStr (100 + v1), 3, 2) + �.� + Copy (IntToStr (100 + v2), 3, 2) + �.� + Copy (IntToStr (100 + v3), 3, 2) + �.� + Copy (IntToStr (100 + v4), length(inttostr(v4)),length(inttostr(v4)));end;Chamo da seguinte forma:Label1.caption := Versao(Application.Exename);obs.para funcionar corretamente habilite a op��o:include version information in project na aba Version info nas op��es do projeto.Espero ter ajudado....

Tpoeta · Answer

Opa pessoal, obrigado pelas respostas todas. Acabei usando o seguinte c�digo (achei aqui no f�rum) para conseguir capturar a vers�o:

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;

procedure TfrmSobre.FormShow(Sender: TObject);
begin
  lblVersao.Caption := �Vers�o: � + GetFileVersion(Application.ExeName);
end;

talvez possa ser �til a mais algu�m. :lol:

Beppe · Answer

Pesquisar � tudo...(a prop�sito...eu pesquisei e vi escrevi esta fun��o em Nov/03) :lol:

Eu modifiquei a fun��o para que atendesse ao requisito do universodosoftware. Agora existe um par�metro Partes que indica quantos campos da vers�o s�o necess�rios. No caso dele � 2.

function GetFileVersion(const Filename: String; Partes: Integer): String;
type
  TVersionInfo = packed record
    Dummy: array[0..7] of Byte;
    V: array[0..3] of Word; // aten��o: os campos s�o trocados dentro de um dword
    V2, V1, V4, V3: Word;
  end;
var
  Zero, Size: Cardinal;
  Data: Pointer;
  VersionInfo: ^TVersionInfo;
  I: Integer;
begin
  Result := ��;
  Size := GetFileVersionInfoSize(Pointer(Filename), Zero);
  if Size > 0 then
  begin
    GetMem(Data, Size);
    try
      GetFileVersionInfo(Pointer(Filename), 0, Size, Data);
      VerQueryValue(Data, �\�, Pointer(VersionInfo), Size);
      for I := 0 to Partes - 1 do
        Result := Result + IntToStr(VersionInfo.V[I and not 1 or Ord(not Odd(I))]) + �.�;
      Delete(Result, Length(Result), 1);
    finally
      FreeMem(Data);
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 4 do
    Memo1.Lines.Add(GetFileVersion(Application.ExeName, I));
end;