Как определить установлен ли Internet ExplorerDelphi , Интернет и Сети , БраузерКак определить установлен ли 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; Статья Как определить установлен ли Internet Explorer раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |