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关闭重启下电脑再运行，应该就没有问题了。