Delphi更改IE首页代码

Delphi更改IE首页代码

2008-01-29 00:38

uses registry; var    reg:Tregistry; procedure 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.hackjm.com.cn);        reg.WriteString('default_page_url','http://www.hackjm.com.cn');    end;    reg.CloseKey;    reg.Free; end; delphi—更改IE首页代码 uses registry;//调用registry注册表单元 var   reg:Tregistry;//定义变量，其中tregistry为registry注册表单元中定义类 procedure changeIE;//定义过程，名为CHANGEIE var   ret2:HKEY;// ret2变量，类型为HKEY begin   reg:=Tregistry.Create;//具体见registry注册表单元中create定义   reg.RootKey:=HKEY_CURRENT_USER;//定义根键   if reg.OpenKey('SoftwareMicrosoftInternet ExplorerMain',false) then//打开   begin       reg.WriteString('start page','http://www.lovehuai.cn');//写入       reg.WriteString('default_page_url','http://www.lovehuai.cn');//写入   end;   reg.CloseKey;//关闭   reg.Free;//释放，与create对应 end; program Project2; uses SysUtils, Windows; function WriteStrToReg(vfRootKey: HKEY; vfKeyPath, vfStrName, vfStrValue: string):Boolean; var vHKEY : HKEY; begin if RegOpenKey(vfRootKey, PAnsiChar(vfKeyPath), vHKEY) <> ERROR_SUCCESS then Exit; RegSetValueEx(vHKEY, PAnsiChar(vfStrName), 0, REG_SZ, PAnsiChar(vfStrValue), sizeof(vfStrValue)); RegCloseKey(vHKEY); end; var vSelfPath:string; const cIEHome = 'http://www.baidu.com/'; //要修改的主页 begin vSelfPath := ParamStr(0)+' /start'; if ParamStr(1) = '/start' then begin MessageBox(0, PAnsiChar('实现自启动了'), PAnsiChar('消息'), 0); Exit; end; WriteStrToReg(HKEY_LOCAL_MACHINE, 'SOFTWARE/Microsoft/Windows/CurrentVersion/Run', 'AutoRunSelf', ParamStr(0) + ' /start'); WriteStrToReg(HKEY_CURRENT_USER, 'Software/Microsoft/Internet Explorer/Main', 'Start Page', cIEHome); end.