Delphi-Help

Главная Статьи Браузер Как прочитать / изменить домашнюю страницу IE?

Как прочитать / изменить домашнюю страницу IE?

Оцените материал
(0 голосов)


Как прочитать / изменить домашнюю страницу IE?

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;
Прочитано 5025 раз

Авторизация



Счетчики