RegF := TRegistry.Create;
     RegF.RootKey := HKEY_CLASSES_ROOT;
   创建注册表后,我候把程序的安装路径也写在注册表里.请问该如何写

解决方案 »

  1.   

    RegF := TRegistry.Create;
         RegF.RootKey := HKEY_current_user;
    regf.openkey('software\你的软件名',true);
    regf.writestring('项目名','项目值')
      

  2.   

    procedure TForm_down_zhiwendengji.Edit1Change(Sender: TObject);
    var  Reg:TRegistry;
    begin
      Reg:=TRegistry.Create;
      reg.RootKey:=HKEY_CURRENT_USER;
      Reg.OpenKey('Software\huaxin\zwkq',true);
      Reg.WriteString('wz_url',edit1.Text);
      reg.Free;
    end;
      

  3.   

    Reg:=TRegistry.Create;
      reg.RootKey:=HKEY_CURRENT_USER;
      Reg.OpenKey('Software\wlgl,true);
      reg.createkey('mypath');
      Reg.WriteString('myreports',edit1.Text);
      reg.Free;
    注册了后,在注册表里没找到MYREPORTS
      

  4.   

    在注册表里怎么找不到我注册的文件.
    try
          RegF := TRegistry.Create;
          try
            RegF.RootKey := HKEY_CLASSES_ROOT;
            if  regf.OpenKey('wlgl\mypath',true) then
            begin
               regf.WriteString('reppath','C:\Program Files\wlgl');
            end  else
            begin
              regf.OpenKey('wlgl',true);
              regf.CreateKey('mypath');
              regf.WriteString('reppath','C:\Program Files\wlgl') ;
            end;
             regf.CloseKey ;
             if regf.OpenKey('wlgl\mypath',true)  then
             if regf.ValueExists('reppath') then
              self.lblMsg.Visible := false;
            finally
             regf.Free ;
            end;
       except
         end;