注册表键值判断问题

Question

对于扩展的字符串值，或者说用Tregistry的WriteExpandString方法写入的字符串，不能用ValueExists() 正确判断，该如何处理？

Answer 1

可以啊，比如：
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  if Registry.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
  begin
    Registry.WriteExpandString('AAA', '%PATH%');
    if Registry.ValueExists('AAA') then ShowMessage('sfdasd');
  end;
  Registry.Free;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

可以啊，比如：
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  if Registry.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
  begin
    Registry.WriteExpandString('AAA', '%PATH%');
    if Registry.ValueExists('AAA') then ShowMessage('sfdasd');
  end;
  Registry.Free;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 3

恩，可以的，原来是别的地方有bug！