Fórum Como retornar a versão do Meu Sistema? #351446

encontrei um [url=https://www.devmedia.com.br/articles/viewcomp.asp?comp=616&hl=]artigo[/url] aqui, mas eu não cheguei a ler, verifique se isso que você quer.


flw.

function GetVersaoArq: 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;

use essa funcão que funciona pega a versao do executavel

Obrigado amigos.
Já consegui, como retornar.
Mais uma vez. Obrigado pela antenção.
Att.

*atenção