function VersaoExe(const FileName: string): String;
var
VerInfoSize, VerValueSize, Dummy: Dword;
VerInfo: Pointer;
VerValue: PVSFixedFileInfo;
V1, V2, V3, V4: Word;
begin
VerInfoSize:=GetFileVersionInfoSize(PChar(FileName),Dummy);
GetMem(VerInfo,VerInfoSize);
GetFileVersionInfo(PChar(FileName),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);
VersaoEXE:=IntToStr(v1)+'.'+IntToStr(v2)+'.'+IntToStr(v3)+'.'+IntToStr(v4);
end;
COMO USAR
Labe1.caption:=VersaoEXE('velix.exe');
----- Original Message -----
From: Luiz Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 26, 2006 2:48 PM
Subject: [trabalho] [delphi-br] Versão
Pessoal,
Como posso obter a versão do executável? Aquela que é configurada na opção
Project/Options/Version Info. Quero fazer uma janela que mostre essa
informação. Também preciso da data do executável.
SDS
Luiz Henrique Santos
Coordenador de Desenvolvimento
Brasystem Automação Comercial
Florianópolis - Santa Catarina
Telefone: 55 (48) 3223-3632 ramal 26
[EMAIL PROTECTED]
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por: | |
|
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 Termos do Serviço do Yahoo!.