Delphi改变IE主页URL的程序源码,也就是设置IE的首页,在窗口中输入指定的URL,点击确定即可。具体的修改代码如下:
if Application.MessageBox('确定要更改吗?','提示',MB_YESNO)= ID_YES then
begin
MyReg := TRegistry.Create;
MyReg.RootKey := HKEY_CURRENT_USER;
if MyReg.OpenKey('\Software\Microsoft\Internet Explorer\Main',True) then
begin
MyReg.WriteString('Start Page',Edit1.Text);
Application.MessageBox('修改成功!','提示',64);
end;
end;