怎样判断注册表中是否存在某个值？

Question

读注册表函数：
别忘了在Uses部分引用Registry单元^_^
function ReadReg(ARootKey: HKEY; AKey, AName: String): String;
var
  RegFile: TRegistry;
begin
  RegFile := TRegistry.Create;
  RegFile.RootKey := ARootKey;
  try
    if RegFile.KeyExists(AKey) then begin
      if RegFile.OpenKey(AKey, False) then
        Result := RegFile.ReadString(AName)
      else
        Result := '';
    end else
      Result := '';
  finally
    RegFile.Free;
  end;
end;调用：
const
  RootKey : HKEY = HKEY_LOCAL_MACHINE;if ReadReg(RootKey,'\Software\Microsoft\Whh','user') = 'me' then 
  ……

Answer 1

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\Software\Microsoft\Whh', True);
  //设置user为当前的key
  if not OpenKey('user', false) then begin
     //健值user不存在
  end;
  if not Reg.ValueExists('me') then begin
     //键值user中没有me的串值
  end;
  Reg.CloseKey;
  Reg.Free;
end;当场写的没调试过，但应该没什么问题的

Answer 2

首先在uses中加入引用Registry
声明  var    reg:Tregistry;stmp:string;  reg:=TRegistry.Create;
  reg.RootKey:=Hkey_Local_Machine;
  if reg.OpenKey('Software\Microsoft\Whh',false) then//如果位置存在才成功
    if reg.ValueExists('user') then //说明键存在
    stmp=reg.ReadString('user')
       if stmp='me' //是你的值