Marcelo,
Tente a seguinte função......
####################
function GetBuildInfo: string;
var
VerInfoSize : DWORD;
VerInfo : Pointer;
VerValueSize : DWORD;
VerValue : PVSFixedFileInfo;
Dummy : DWORD;
V1, V2, V3, V4 : Word;
Prog : string;
begin
Pr og=Application.Exename
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 := IntToStr(v1) + '.' + IntToStr(v2) + '.' + IntToStr(v3) + '.' +
IntToStr(v4);
end;
####################
----- Original Message -----
From: "Marcelo Carvalho" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, February 09, 2005 5:36 PM
Subject: [delphi-br] Como trabalhar com Número de Versão
Atenciosamente,Como fazer para controlar o número da versão do software que
vc está liberando ?
Isto é manual ?? Tem alguma coisa no Delphi que se pode utilizar ??? Se sim
... como faze-lo ???
Hoje eu trabalho com a data do executável, mas isso não é muito legal.
Atenciosamente,
Marcelo Carvalho
Programador Sênior
Santa Casa de Misericórdia de Porto Alegre
E-mail: [EMAIL PROTECTED]
Essa mensagem, incluindo seus anexos, tem caráter confidencial e seu
contéudo
é restrito ao(s) destinatário(s) da mensagem.
Qualquer uso nao autorizado, replicaçao ou disseminaçao desta mensagem ou
parte dela é expressamente proibido.
Esse e-mail foi certificado contra virus.
ISCMPA - Irmandade da Santa Casa de Misericórdia de Porto Alegre
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
