Как прочитать или изменить StartPage IEDelphi , Интернет и Сети , БраузерКак прочитать или изменить StartPage IEАвтор: http://www.swissdelphicenter.ch uses {...,} Registry; function GetIEStartPage: string; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False); try Result := Reg.ReadString('Start Page'); except Result := ''; end; Reg.CloseKey; finally Reg.Free; end; end; function SetIEStartPage(APage: string): Boolean; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False); try Reg.WriteString('Start Page', APage); Result := True; finally Reg.CloseKey; Result := False; end; finally Reg.Free; end; end; // Show the Startpage procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetIEStartPage); end; // Set the Startpage procedure TForm1.Button2Click(Sender: TObject); begin SetIEStartPage('http://forum.vingrad.ru'); end; Статья Как прочитать или изменить StartPage IE раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |