Identificar a vers�o do BDE instalado

Question

Boa tarde,Algu�m sabe como identificar via programa��o a vers�o do BDE que esta instalada na m�quina do cliente?Por exemplo identificar se � 5.1.1.1 ou 5.2.0.2 .O arquivo IDAPI32.DLL cont�m esta infor...

Araujojunior · Answer

Eu utilizo essa fun��o para pegar a vers�o do arquivo:

function GetFileInfo(FName, InfoType: string): string;
var Info: Pointer;
  InfoData: Pointer;
  InfoSize: LongInt;
  InfoLen: {$IFDEF WIN32}DWORD; {$ELSE}LongInt; {$ENDIF}
  DataLen: {$IFDEF WIN32}UInt; {$ELSE}Word; {$ENDIF}
  LangPtr: Pointer;
begin
  Result := ��;
  DataLen := 255;
  if Length(FName) <= 0 then
    exit;
  FName := FName + #0;
  InfoSize := GetFileVersionInfoSize(@Fname[1], InfoLen);
  if (InfoSize > 0) then begin
    GetMem(Info, InfoSize);
    try
      if GetFileVersionInfo(@FName[1], InfoLen, InfoSize, Info) then begin
        if VerQueryValue(Info, �\VarFileInfo\Translation�, LangPtr, DataLen) then
          InfoType := Format(�\StringFileInfo\�0.4x�0.4x\�s�0,
            [LoWord(LongInt(LangPtr^)), HiWord(LongInt(LangPtr^)), InfoType]);
        if VerQueryValue(Info, @InfoType[1], InfoData, Datalen) then
          Result := strPas(InfoData);
      end;
    finally
      FreeMem(Info, InfoSize);
    end;
  end;
end;

E pode ser implementado assim

VersionFile := GetFileInfo(FileName, �FileVersion�)

onde FileName � o nome do arquivo.

Airoosp · Answer

Fiz um teste com a fun��o utilizando a DLL e n�o retornou informa��o. Funciona apenas para arquivo execut�vel?Obrigado.Airton...

F�rum Identificar a vers�o do BDE instalado #344942