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

Question

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;

Answer 1

你是在WIN7上运行吧，怀疑是没有权限，你把uac关闭重启下电脑再运行，应该就没有问题了。