Jump to content

Função para descobrir versão DLL


Postagens Recomendadas

  • Administradores

Função para descobrir o número de versão de uma dll.

No parâmetro aFileName, deve-se informar o caminho completo com extensão, Ex: (‘C:\Windows\System32\NFeX.dll’)

function MostrarVersaoDll( const aFileName : string ) : string ;

var infoSize: DWORD;
var verBuf: pointer;
var verSize: UINT;
var wnd: UINT;
var FixedFileInfo : PVSFixedFileInfo;
begin
infoSize := GetFileVersioninfoSize(PChar(aFileName), wnd);

result := ‘’;

if infoSize <> 0 then
begin
GetMem(verBuf, infoSize);
try
if GetFileVersionInfo(PChar(aFileName), wnd, infoSize, verBuf) then
begin
VerQueryValue(verBuf, ‘’, Pointer(FixedFileInfo), verSize);

    result := IntToStr(FixedFileInfo.dwFileVersionMS  **div**  $10000) + '.' +
    result := IntToStr(FixedFileInfo.dwFileVersionMS  **div**  $10000) + '.' +

IntToStr(FixedFileInfo.dwFileVersionMS and $0FFFF) + ‘.’ +
IntToStr(FixedFileInfo.dwFileVersionLS div $10000) + ‘.’ +
IntToStr(FixedFileInfo.dwFileVersionLS and $0FFFF);
end ;
finally
FreeMem(verBuf);
end ;
end ;
end ;

Link to comment
Compartilhe em outros sites

Crie uma conta ou entre para comentar 😀

Você precisa ser um membro para deixar um comentário.

Crie a sua conta

Participe da nossa comunidade, crie sua conta.
É bem rápido!

Criar minha conta agora

Entrar

Você já tem uma conta?
Faça o login agora.

Entrar agora
×
×
  • Create New...