Uma funcao para detectar a versão do Internet Explorer da máquina.

Para detectar a versão do Internet Explorer, basta consultar uma chave do registro cujo endereço é: HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Internet Explorer Existem 3 chaves neste local que determinam a versão do IE: - IVer    disponível no IE 1, 2 e 3 - Build   disponível a partir do IE 2 - Version disponível a partir do IE 4.0 É possível consultar a versão do IE através da versão da Shdocvw.dll, porém essa DLL só está disponível a partir da versão 3.0. A chave IVer contém os seguintes valores: 100 - IE 1.0 101 - IE para NT 4.0 102 - IE 2.0 103 - IE 3.0 A chave Version contém o número da versão por extenso que não corresponde ao número da versão que o usuário vê. Na página abaixo tem uma lista detalhada que relaciona um valor com o outro: http://www.codeproject.com/shell/detectie.asp E finalmente, o código da função que obtém a versão: {Function to obtain the IE version through registry keys.  The other way is to check Shdocvw.dll, but this DLL is available only in IE 3.0 and newer. IE 1.0 and 2.0 use "IVer" registry key.  All other versions use "Version" key.  Below is the value for IVer: 100 - IE 1.0 101 - IE for NT 4.0 102 - IE 2.0 103 - IE 3.0} function GetIEVersion: string; var Reg: TRegistry; begin   Reg := TRegistry.Create;   try     Reg.RootKey := HKEY_LOCAL_MACHINE;     Reg.OpenKey('Software\\Microsoft\\Internet Explorer', False);     try       Result := Reg.ReadString('Version');       if (Result='') then Result := Reg.ReadString('IVer');     except       Result := '';     end;     Reg.CloseKey;   finally     Reg.Free;   end; end; Através da versão do IE determina-se qual ActiveX poderá ser carregado para fazer OLE com o IE. Até a versão 3.0 o componente é o TWebBrowser_V1 e a partir do IE 4.0, o componente é o TWebBrowser.

Quebra-Linha

Colaborador..: Rodrigo Otavio Rodrigues Antunes
Categoria(s).: Programação; Windows 9X; Delphi; Windows NT;
Versão.......: 1.0
Data.........: 05/05/2003 17:44:38
Visualizado..: 11482 vezes
Fonte........: http://www.codeproject.com/shell/detectie.asp