안녕하세요~

아래는 인터넷브라자의 시작페이지를 설정하는 샘플코드입니다.

참고하시고 즐거운 프로그래밍 하시길~~


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('www.delphi.pe.kr');
end;

감사합니다.