我想用inno setup检测用户电脑是否安装了.net framework

我想用inno setup检测用户电脑是否安装了.net framework，如何通过.net framework的注册表信息来判别，但是它的信息写在了这个HKEY_LOCAL_MACHINE目录下，而访问这个HKEY_LOCAL_MACHINE需要管理员的权限才行。我本机测试（我的操作系统是xp，32位），不管是admin还是user，都可以访问得到里面的信息。我发送到64位的的win7系统的电脑测试，仍然可以访问，而我发送到除我之外的任何一台xp系统或win7（32位）系统的机子，均不能读取注册表里的信息。
请问各位如何解决？

我写的代码如下：

; 脚本由 Inno Setup 脚本向导 生成！
; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！

#define MyAppName "超级无敌大程序"
#define MyAppVersion "1.5"
#define MyAppPublisher "求知科技"
#define IncludeFramework true
#define IsExternal ""
#define MyAppURL "http://www.qiuzhi.com/"
#define MyAppExeName "EasyKao.exe"

[Setup]
; 注: AppId的值为单独标识该应用程序。
; 不要为其他安装程序使用相同的AppId值。
; (生成新的GUID，点击 工具|在IDE中生成GUID。)
AppId={{D6328262-08DA-47EA-8899-86850CF7D3B1}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputDir=安装
OutputBaseFilename=setup
SetupIconFile=D:\打包测试\Setup.ico   
Compression=lzma
SolidCompression=yes
DisableReadyPage=yes
PrivilegesRequired=lowest



[Languages]
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

;生成快捷方式
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Files]
Source: "D:\打包测试\x\*"; DestDir: "{app}"; Flags: ignoreversion
;{#IsExternal}; Check: NeedsFramework
Source: "D:\打包测试\x\data\*"; DestDir: "{app}\data"; Flags: ignoreversion
Source: "D:\打包测试\MyProg-x64.exe"; DestDir: "{app}"; DestName: "MyProg.exe"; Check: Is64BitInstallMode
Source: "D:\打包测试\MyProg.exe"; DestDir: "{app}"; Check: not Is64BitInstallMode
;#if IncludeFramework
;Source: "D:\打包测试\x\dotnetfx.exe"; DestDir: "{app}"; Flags: ignoreversion {#IsExternal}; Check: NeedsFramework
;#endif
;Source:"D:\打包测试\you.ico"; DestDir: "{app}";
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon; IconFilename: "{app}\you.ico"

;[Registry]
;Root:HKLM; Subkey: "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client\Install";Permissions: users-full

;上面的tasks要和【Tasks】的name名称一样，要一一对应

[Run]
;#if IncludeFramework
;Filename: {app}\dotnetfx.exe; Parameters: "/q:a /c:""install /l /q"""; WorkingDir: {tmp}; Flags: skipifdoesntexist; StatusMsg: "Installing .NET Framework if needed"
;#endif
;Filename: {app}\Microsoft.NET\Framework\v4.0.30319\CasPol.exe; Parameters: "-q -machine -remgroup ""{#MyAppName}"""; WorkingDir: {tmp}; Flags: skipifdoesntexist runhidden; StatusMsg: "Setting Program Access Permissions..."
;Filename: {win}\Microsoft.NET\Framework\v4.0.30319\CasPol.exe; Parameters: "-q -machine -addgroup 1.2 -url ""file://{app}/*"" FullTrust -name ""{#MyAppName}"""; WorkingDir: {tmp}; Flags: skipifdoesntexist runhidden; StatusMsg: "Setting Program Access Permissions..."
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent ; 

;[UninstallRun]
;Filename: {win}\Microsoft.NET\Framework\v4.0.30319\CasPol.exe; Parameters: "-q -machine -remgroup ""{#MyAppName}"""; Flags: skipifdoesntexist runhidden;

[Code]
function InitializeSetup(): Boolean;   
var sVersion: Cardinal;

begin
  //Log('InitializeSetup called');
  //Result := MsgBox('InitializeSetup:' #13#13 'Setup is initializing. Do you really want to start setup?', mbConfirmation, MB_YESNO) = idYes;
  //if Result = False then
  //  MsgBox('InitializeSetup:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);

  if RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client','Install',sVersion) then
  if sVersion=1 then
  begin
    //MsgBox('Your country: ' + IntToStr(sVersion),mbConfirmation, MB_OK);
      MsgBox('你的电脑安装了.net4.0', mbInformation,MB_OK);
     //Path := ExpandConstant('Setup\dotnetfx.exe');
     //Exec(Path, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
  end
  else
  //检测3.0
  begin
    if RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5','Install',sVersion) then
    if sVersion=1 then
    begin
               MsgBox('你的电脑安装了.net3.5', mbInformation,MB_OK);
    end
    else 
    begin
     //检测3.0
     if RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0','Install',sVersion) then
     if sVersion=1 then
    begin
               MsgBox('你的电脑安装了.net3.0', mbInformation,MB_OK);
    end
    else 
    begin
       //检测2.0
       if RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0','Install',sVersion) then
       if sVersion=1 then
        begin
               MsgBox('你的电脑安装了.net2.0'+InttoStr(sVersion), mbInformation,MB_OK);
        end
       else
       begin
               MsgBox('你的电脑没有安装了.net2.0', mbError,MB_OK);
       end
    end
    end
  end
end;