delphi – 在标准用户上尝试写入HKLM时如何不触发异常？

由于我作为标准用户(或作为标准用户的XP,或作为标准用户的Windows Vista,或带有标准用户的Windows 7)在Windows 2000上运行,我完全希望我无法写入HKEY_LOCAL_MACHINE注册表的一部分：

reg := TRegistry.Create(KEY_WRITE);
try
   reg.Access := KEY_WRITE; //sure,set it again,why not
   reg.RootKey := HKEY_LOCAL_MACHINE;
   if not reg.OpenKey('SoftwareMicrosoftSQMClient',True) then
      Exit;

   reg.WriteString('MachineId',s);
finally
   reg.Free;
end;

不幸的是,WriteString抛出了一个ERegistryException：

Failed to set data for 'MachineId`

这是完全可以预料到的,这就是我试图避免异常的原因.我在TRegistry中没有看到任何CanWriteString或TryWriteString.

尝试写入HKLM时如何才能触发异常？

不言而喻的笔记：

>如果用户实际上是管理员,则写入应该能够成功
>在try-except中包含对WriteString的调用：

reg := TRegistry.Create(KEY_WRITE);
try
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if not reg.OpenKey('SoftwareMicrosoftSQMClient',True) then
     Exit;

  try
     reg.WriteString('MachineId',s);
  except
     on E:ERegistryException do
        {nothing};
  end;
finally
  reg.Free;
end;

不会阻止异常被抛出.

更新：来自RTL源：

KEY_WRITE          = (STANDARD_RIGHTS_WRITE or
                        KEY_SET_VALUE or
                        KEY_CREATE_SUB_KEY) and not
                        SYNCHRONIZE;

从MSDN：

06004

Combines the STANDARD_RIGHTS_WRITE,KEY_SET_VALUE,and KEY_CREATE_SUB_KEY access rights.