Установление домашней страницы веб браузера в Delphi

[xitroi]

Уважаемые Дельферы! Вы в курсе возможно ли сделать какую-нибудь веб страницу стартовой в браузере средствами Delphi?
Или программно с помощью Delphi веб страницу в избранное в браузере.
Заранее Благодарен!

[Terran]

Возможно всё.

Uses Registry;
...
function SetInternetExplorerHomePage(u: string): boolean;
begin
with TRegistry.Create do
begin
RootKey:=HKEY_CURRENT_USER;
Result := OpenKey('Software\Microsoft\Internet Explorer\Main', true);
if Result then 
WriteString('Start Page', u);
CloseKey;
end;
end;

[xitroi]

Благодарю!
Очень помогли!

[xitroi]

Сообщение от Terran

Возможно всё.

Uses Registry;
...
function SetInternetExplorerHomePage(u: string): boolean;
begin
with TRegistry.Create do
begin
RootKey:=HKEY_CURRENT_USER;
Result := OpenKey('Software\Microsoft\Internet Explorer\Main', true);
if Result then 
WriteString('Start Page', u);
CloseKey;
end;
end;

А между чем нужно функцию вписать?

[Terran]

А между чем нужно функцию вписать?

Сначала добавляете в раздел Uses модуль Registry. Потом, груба говоря, после раздела Implementation пишете функцию и вызываете её так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
SetInternetExplorerHomePage('http://programmersforum.ru');
End;