Recent

Author Topic: Recuperar o nº da versão e data do aplicativo  (Read 4760 times)

TeoUrbana

  • New Member
  • *
  • Posts: 43
    • Distração For Fun
Recuperar o nº da versão e data do aplicativo
« on: January 16, 2013, 05:00:18 pm »
Olá a todos do Forum!
Sou novo do mundo da programação e mais ainda no Lazarus, e espero que possam me ajudar. Estou tentando  trazer automaticamente no Form "Sobre" do meu projeto o n° da versão e data do aplicativo. Gostaria de receber isto no Caption do Label.
 Nos exemplos instalados no Lazarus tem uma função(\LAZARUS\examples\lazresexplorer), porém não consegui transpor o código, para utilizar da forma que desejo. Recuperar somente a data do aplicativo e a versão, colocando em um Label.
Ex.: Label1.Caption := NumVersao;
Espero ter me feito entender e que possam me ajudar.
[].

bdexterholland

  • Jr. Member
  • **
  • Posts: 65
  • uh?
Re: Recuperar o nº da versão e data do aplicativo
« Reply #1 on: February 15, 2013, 01:41:25 am »
Se conseguir novidades sobre isto, por favor, retorne aqui.

Tente procurar alguma propriedade chamada MajorVersion ou MinorVersion. Talvez dentro do objeto Application...
[sleep .....]

elidorio

  • Sr. Member
  • ****
  • Posts: 295
Re: Recuperar o nº da versão e data do aplicativo
« Reply #2 on: February 23, 2013, 08:10:15 pm »
Esse código, funciona com Lazarus 1.06 e fpc 2.6 já com 2.7.1, dá erro:

procedure Tfrmmenu.FormShow(Sender: TObject);
begin
  fileversioninfo := TFileVersionInfo.Create(nil);
  fileversioninfo.fileName := Application.ExeName;
  frmmenu.Caption := 'SISTEMA' +
    ' - Ver. ' + FileVersionInfo.getVersionSetting('FileVersion');
  sysversao := 'Sistema ver. ' + FileVersionInfo.getVersionSetting('FileVersion');
end;   
Lazarus 1.4.4 | FPC 2.6.4 | Windows / Linux Debian

TeoUrbana

  • New Member
  • *
  • Posts: 43
    • Distração For Fun
Re: Recuperar o nº da versão e data do aplicativo
« Reply #3 on: March 10, 2013, 11:54:05 pm »
Ele não reconhece o TFileVersionInfo... tem que informar alguma biblioteca?


 

TinyPortal © 2005-2018