我想用注册表保存一个字符串，程序启动时又把它读出来，怎样实现呢？

Question

我想用注册表保存一个字符串，程序启动时又把它读出来，怎样实现呢？

Answer 1

保存
var Temp:TRegistry;
begin
  Temp:=TRegistry.create;
  with Temp do
  begin
    if openkey(KeyPath,true) then
      Writestring('a','value');
    CloseKey;   
  end; 
end;读出：
var Temp:TRegistry;
    str:string;
begin
  Temp:=TRegistry.create;
  with Temp do
  begin
    if openkey(KeyPath,true) then
      str:=Readstring('a');
    CloseKey;   
  end; 
end;
--------------
str的值就是读出的值。
随便写的，没测试过。我电脑里也没Delphi啦。