请叫一个delphi操作注册表改首页的问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  if reg.OpenKey('Software\Microsoft\InternetExplorer\Main\StartPage',true) then
    begin
      reg.WriteString('数据','http://www.hao123.com');
      reg.CloseKey;
   end;
  reg.Free;
end;end.
好象没有修改成功，望朋友指点下！
谢

Answer 1

uses Registry;procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\Microsoft\Internet Explorer\Main', False) then
    begin
      WriteString('Start Page', 'http://www.hao123.com');
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Answer 2

多谢楼上的朋友，这个问题已经解决，我还想请教一个问题简单的需求：因为我这个软件 目标客户群不一样，那么他们喜好的 网站也不同，因此设置的主页也是不同的，这里我就留了个 edit 给客户输入自己喜欢的网站，然后在设计个 button，点了这个 button 以后 就可以生成 不同url为主页的 exe本人查了下资料，有朋友说 先做成 exe的 资源，然后在 用 edit 更改 资源里面的那个 主页地址，在下疑惑的是 这个 exe的资源 包括什么，代码如何来完成望各位指点思路，本人初学 delphi 不知道表达的是否清楚

Answer 3

直接生成一个 *.reg 文件，不就很方便？如果上上面的方法，搜索“TResourceStream rc”解决exe->资源,资源->exe
搜索“TFileStream Write Read string”解决字符串写入exe，exe本身的读取

Answer 4

-_-!!!!!!http://www.google.cn/search?hl=zh-CN&q=TResourceStream+rc&btnG=Google+%E6%90%9C%E7%B4%A2&meta=