在delphi里如何往注册表里创建字符串值

Question

在delphi里如何往注册表里创建字符串值,可以创建主键，但不知道如何创建字符串值,
当然是用TRegistry类来实现,用它的createkey这个方法可以创建主键的,但不知道如何创建字符串值

Answer 1

用WriteString方法。
例如：
var
  a:TRegistry;
begin
  a.openkey('你要写的注册表位置',boolean变量);  //boolean变量表示在没有找到指定  位置的请客下是否创建这个主键。
  a.writestring('abc','123');
end;这样你就在注册表指定位置创建了一个abc主键，键值为'123'。

Answer 2

还可以这样：
  AppKey :='SOFTWARE\CLASSES\'+ExtractFileName(Application.ExeName)+'\OCRparameter';
  if not Reg.OpenKey(AppKey,True)  then
  begin
    raise Exception.Create(Format('ﾎﾞｷｨｴｴｽｨ "%s"ｼ・｡',[AppKey]));
  end
其他的和上面的一样。。

Answer 3

引用Registryvar
  registry:TRegistry;
const RegPath='SOFTWARE\AVPress';//路径
begin
      Registry:=TRegistry.create;
      with Registry do               //写注册表信息
      begin
        rootkey:=HKEY_LOCAL_MACHINE; //根目录
        openkey(regpath,true);
        writestring('FTPServerIP',CenterIP);
        writestring('FtpPort',CenterPort);
        writestring('HttpPort',CenterHttpPort);
        closekey;
        free;
      end;
end;