Как определить установлен ли Internet Explorer

uses

  registry;

function
 IE_installed(var
 Version: string
): Boolean;
var

  Reg: TRegistry;
begin

  Reg := TRegistry.Create;
  with
 Reg do

  begin

    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('SoftwareMicrosoftInternet Explorer', False);
    if
 ValueExists('Version') then

      Version := ReadString('Version')
    else

      Version := '';
    CloseKey;
    Free;
  end
;
  Result := Version <> '';
end
;

procedure
 TForm1.Button1Click(Sender: TObject);
var

  IE_Version: string
;
begin

  if
 IE_Installed(IE_Version) then

    ShowMessage(Format('Internet Explorer %s installed.', [IE_Version]));
end
;

Другое по теме:

• Очистка кэша в IE
• WEB страничка внутри Delphi приложения
• Автоматическое заполнение HTML-форм в браузере