USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Detectando a versão do IE com o INNO SETUP
Postada em 15/5/2006 por ¨Hennyere¨         
[Setup]
AppName=IEVersion2
AppVerName=IEVersion2
DefaultDirName=IEVersion2
DisableStartupPrompt=true
Uninstallable=false

[Code]
function InitializeSetup( ): Boolean;
var
  sIEVersion:  String;
  cIEMinVersionRegistry: String;
  cIEMinVersionShowed: String;

begin
  Result := true;

  // Initialize constants:
  cIEMinVersionRegistry := '4.72';  // this is display version v4.01
  cIEMinVersionShowed   := '4.01SP2'; // this is registry entry v4.72.xxx

  // now we check the version of the installed Internet Explorer:
  sIEVersion := GetIExplorerVersion();
  if ( sIEVersion <= cIEMinVersionRegistry ) then
  begin
    if ( sIEVersion = '' ) then
      sIEVersion := '';
    MsgBox( 'ERROR: The Program needs an installed' + #13 + #10 +
            '       Microsoft Internet Explorer >= v' + cIEMinVersionShowed + #13 + #10 +
            '       (detected version:"' + sIEVersion + '") !' + #13 + #10 + #13 + #10 +
            'Please install the necessary version (or higher) and then reenter the setup !',
            mbError, MB_OK );
    Result := false;
  end;
end; // END_FUNC InitializeSetup


function GetIExplorerVersion(): String;
var
  sVersion:  String;
begin
  RegQueryStringValue( HKLM, 'SOFTWAREMicrosoftInternet Explorer', 'Version', Result );
  if ( Result = '' ) then
  begin
    // the registry-key does not exist;
    //   versions before v4 used another one --> check this also
    RegQueryStringValue( HKLM, 'SOFTWAREMicrosoftInternet Explorer', 'IVer', sVersion );
    if ( sVersion <> '' ) then
    begin
      Result := '';
      case sVersion of
        '103':
          Result := '3.0';
        '102':
          Result := '2.5';
        '101':
          Result := '2.0';
        '100':
          Result := '1.0';
      end; // END case sVersion of
    end; // END if ( sVersion <> '' ) then
  end; // END if ( Result = '' ) then
end; // END_FUNC GetIEXplorerVersion
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página