Как прочитать или изменить StartPage IE

Советы » Браузер » Как прочитать или изменить StartPage IE

uses

{...,} Registry; function

GetIEStartPage: string

; var

Reg: TRegistry; begin

Reg := TRegistry.Create; try

Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('SoftwareMicrosoftInternet ExplorerMain', 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('SoftwareMicrosoftInternet ExplorerMain', 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com