不尽人意,希望看到的大大帮我改正。 var reg,reg1:TRegistry; title,url:string; function SetReg():Boolean; begin SetWindowLong(Form1.Edit1.Handle,gwl_style,GetWindowLong(Form1.Edit1.Handle,gwl_style)or ES_CENTER); SetWindowLong(Form1.Edit2.Handle,gwl_style,GetWindowLong(Form1.Edit2.Handle,gwl_style)or ES_CENTER); reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('Software/Microsoft/Internet Explorer/Main',False); title:=reg.ReadString('Window Title'); Form1.Edit1.Text:=title; reg.CloseKey; reg.Free; reg1:=TRegistry.Create; reg1.RootKey:=HKEY_CURRENT_USER; reg1.OpenKey('Software/Microsoft/Internet Explorer/Main',False); url:=reg1.ReadString('Start Page'); url:=AnsiReplaceText(url,'http://',''); Form1.Edit2.Text:=url; reg1.CloseKey; reg1.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin SetReg; end;