请给个例子或告知网上哪里有源代码或书下载也行。

解决方案 »

  1.   

    就是编辑一下注册表
    http://www.cfan.net.cn/netschool/wy/20020227/02271233.htm
      

  2.   

    例 :在注册表中加一值!uses Registry;
    procedure TfrmXTCS.BitBtn1Click(Sender: TObject);
    const
      _Path = 'Software\soft';  //自己声明的一个键值
    var
      reg : TRegistry;
    begin
      reg := TRegistry.Create;
      try
        reg.RootKey := HKEY_CURRENT_USER;//设定根结点
        if reg.KeyExists(_Path) then   //如果存在此子键
        begin
         if reg.OpenKey(_Path,False) then
           reg.WriteString('Print',edtWZ.Text);//写入值
        end;
      finally
        reg.CloseKey;
        reg.Free;
      end;
    end;