manipulando Internet Explorer
12/05/2003
0
Mineiro
Posts
12/05/2003
Marcelo Saviski
var Reg: TRegistry; SubKey: String; begin begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; SubKey := ´\Software\Microsoft\Internet Explorer\Main\´; Reg.Access := KEY_ALL_ACCESS; Reg.OpenKey(SubKey, False); Reg.WriteString(´Start Page´, StartPage); Reg.CloseKey; Reg.Free; end
12/05/2003
Mineiro
12/05/2003
Dantonds
implementation Uses Registry; {$R *.DFM} 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; 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.napoles.hpg.com.br´); end; end.
Espero ter ajudado.(naum se esqueças de declarar no user registry)
Clique aqui para fazer login e interagir na Comunidade :)