Retornar a versao do aplicativo

Delphi

08/05/2004

oi galera,eu fiz um programa e fui em PROJECT/OPTINS e clique na guia VERSION,eu altera os dados da versao desse aplicativo,mas eu quero que o meu label retorne essa informacoes que eu coloquei nessa guia

como faco isso ?


Anicetojunior

Anicetojunior

Curtidas 0

Respostas

Cebikyn

Cebikyn

08/05/2004

Se quiser apenas o número da versão, pode usar o valor retornado por esta função:

function GetVersion: string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, ´\´, Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    Result := IntToStr(dwFileVersionMS shr 16);
    Result := Result + ´.´ + IntToStr(dwFileVersionMS and $FFFF);
    Result := Result + ´.´ + IntToStr(dwFileVersionLS shr 16);
    Result := Result + ´.´ + IntToStr(dwFileVersionLS and $FFFF);
  end;
  FreeMem(VerInfo, VerInfoSize);
end;


Ou se quiser obter todas as informações, verifique este link:

http://www.swissdelphicenter.ch/en/showcode.php?id=1047


GOSTEI 0
Anicetojunior

Anicetojunior

08/05/2004

como eu faço para mudar a versão via programação,por exemplo o meu eu digito no meu edit o novo numero da versão e altera a versão da aplicação ?


GOSTEI 0
Cebikyn

Cebikyn

08/05/2004

Aí já é uma coisa bem mais complicada, requer que vc modifique o EXE em execução, o que vc pode fazer é modificar outros programas a partir do seu, mas é muito difícil mudar o seu a partir dele mesmo...


GOSTEI 0
POSTAR