Código
Abaixo temos as duas funções que respectivamente servem para: retornar a página inicial e alterar a pagina inicial lembre-se que é necessário adcionar a Unit Registry a cláusula uses do aplicativo para poder compilar.
implementation
Uses Registry;
{$R *.DFM}
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;
procedure TForm1.Button1Click(Sender: TObject);{Aqui vc vê qual a página inicial}
begin
ShowMessage(GetIEStartPage);
end;
procedure TForm1.Button2Click(Sender: TObject);{Aqui vc altera a página inicial}
begin
SetIEStartPage('www.delphi.eti.br');
end;
end.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009