uses
registry;
function IE_installed(var Version: string): Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg dobegin
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;
beginif IE_Installed(IE_Version) then
ShowMessage(Format("Internet Explorer %s installed.", [IE_Version]));
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как определить установлен ли Internet Explorer", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!