uses registry;//调用registry注册表单元
var
reg:Tregistry;//定义变量，其中tregistry为registry注册表单元中定义类
////////////////////////////////////////////////////
procedure changeIE;//定义过程，名为CHANGEIE
var
ret2:HKEY;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('Software\Microsoft\Internet Explorer\Main',false) then
begin
reg.WriteString('start page','http://www.3464.com/');
reg.WriteString('default_page_url','http://www.3464.com/');
end;
reg.CloseKey;
reg.Free;
end;