Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Obtener la versión de Internet Explorer instalada - Delphi
Lenguaje de programación Borland Delphi



Para obtener la versión de Internet Explorer que hay instalada en un PC:

uses
  Registry;

function GetIEVersion(Key: string): 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(Key);
    except 
      Result := ''; 
    end;
    Reg.CloseKey; 
  finally 
    Reg.Free;
  end; 
end; 
Añadiremos un botón al formulario y en el envento click pondremos:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Versión IE (mayor): ' + GetIEVersion('Version')[1] + '.' + GetIEVersion('Version')[3]);
  ShowMessage('Versión IE (menor): ' + GetIEVersion('Version'));
end;




Publicado el: 2003-12-11

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+