Как прочитать или изменить 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
;

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

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

Категории

Статьи

Советы