Results 1 to 2 of 2

Thread: [DELPHI] - Get IE Version

  1. #1

    Thread Starter
    Supreme User Madboy's Avatar
    Join Date
    Oct 2003
    Location
    England
    Posts
    3,253

    [DELPHI] - Get IE Version

    Code:
    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;
    
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage('IE-Version: ' + GetIEVersion('Version')[1] + '.' + GetIEVersion('Version')[3]);
      ShowMessage('IE-Version: ' + GetIEVersion('Version'));
    end;

  2. #2
    New Member
    Join Date
    Apr 2009
    Posts
    1

    You should consider for IE Ver 10 or later :)

    > ShowMessage('IE-Version: ' + GetIEVersion('Version')[1] + '.' + GetIEVersion('Version')[3]);

    If IE Ver 10 will be released, this code cannot detect exact version.
    Last edited by alumu; Apr 30th, 2009 at 01:03 AM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width