Fórum Versão de uma dll ... #294286

Function TForm3.GetBuildInfo(Arq: String):string;
var VerInfoSize: DWORD;
    VerInfo: Pointer;
    VerValueSize: DWORD;
    VerValue: PVSFixedFileInfo;
    Dummy: DWORD;
    V1, V2, V3, V4: Word;
    Prog : string;
begin
    Try
    Prog := CaminhoParaTelaDLLs+Arq;
    VerInfoSize := GetFileVersionInfoSize(PChar(prog), Dummy);
    GetMem(VerInfo, VerInfoSize);
    GetFileVersionInfo(PChar(prog), 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, ´\´, Pointer(VerValue), VerValueSize);
    If VerValue <> Nil Then
    Begin
        With VerValue^ do
        begin
        V1 := dwFileVersionMS shr 16;
        V2 := dwFileVersionMS and $FFFF;
        V3 := dwFileVersionLS shr 16;
        V4 := dwFileVersionLS and $FFFF;
        end;
    End;
    FreeMem(VerInfo, VerInfoSize);
    Result := Copy (IntToStr (100 + v1), 3, 2) + ´.´ +
    Copy (IntToStr (100 + v2), 3, 2) + ´.´ +
    Copy (IntToStr (100 + v3), 3, 2) + ´.´ +
    Copy (IntToStr (100 + v4), 3, 2);
    Except
        On EAccessViolation Do
        Begin
            Result := ´-´;
        End;

    End;
end;