with reg do begin
   try
    RootKey := HKEY_local_machine;
    if OpenKey('\Software\Microsoft\Internet Explorer\main', True)
    then
       begin
        writestring('window title',edit_local_windowtitle.text);
        writestring('start page',edit_local_startpage.text);
        writestring('default_page_url',edit_defaultpage.text);
       end;....
.....

解决方案 »

  1.   

    ARegistry := TRegistry.Create;
      with ARegistry do
      begin
        RootKey := HKEY_CURRENT_USER;
        if OpenKey('Software\Tj\DiskReport', true) then
        begin
          if KeyExists('Window Title') then
            title := ReadString('Window Title')
          else 
            WriteString('Window Title',Title);
        end;
        CloseKey;    {关闭主键,同时将信息写入注册表}
        Destroy;    {释放内存  }
      end; 
      

  2.   

    怎么我的代码又会到了这里呢?上面有个地方写错了。
    if OpenKey('Software\Tj\DiskReport', true) then
        应该是
    if OpenKey('\Software\Microsoft\Internet Explorer\main', True)
        这样才对题