failed to set data for ‘程序名’ 出错在那里 多谢

failed to set data for ‘程序名’ 出错在那里 谢谢

failed to set data for ‘程序名’
上面是出错信息。 为什么有些机器不会出错，有些机器会出错。



Procedure AutoRun(); //设置自动启动
var
  rAutoRun: TRegistry;
begin
  rAutoRun := TRegistry.Create;
  rAutoRun.RootKey := HKEY_LOCAL_MACHINE;

  try
  rAutorun.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);

  if rAutoRun.ValueExists( 'AT_Mrg') then
  begin
  end
  else
  begin
  rAutorun.WriteString( 'AT_Mrg', ExpandFileName(Application.ExeName));
  //MessageBox(self.Handle, '自启动设置成功! ', '提示 ', mb_iconInformation + mb_Ok);
  //ShowMessage('注册成功');
  end;

  finally
  rAutoRun.CloseKey;
  rAutoRun.Free;
  end;
end;

[解决办法]
mark一下，研究研究
[解决办法]
你是在WIN7上运行吧，怀疑是没有权限，你把uac关闭重启下电脑再运行，应该就没有问题了。