Главная страницаОбратная связьКарта сайта

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

Автор: http://www.swissdelphicenter.ch

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("Software\Microsoft\Internet 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как определить установлен ли Internet Explorer", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info