论坛风格切换切换到宽版
  • 1885阅读
  • 2回复

程序限制操作系统运行问题 [复制链接]

上一主题 下一主题
离线zhang981322
 

发帖
79
金钱
260
威望
26
只看楼主 倒序阅读 0 发表于: 2015-10-30
function InitializeSetup(): Boolean;
    var ResultCode: Integer;
    var Version: TWindowsVersion;
GetWindowsVersionEx(Version);

  begin
  ///  限制为操作系统 win7以上系统     win8/8.1 6.3    win10  6.4  或10.0
     if ((Version.Major=6) and (Version.Minor>2)) or (Version.Major=10)  then

       begin
        Result:= true
       end

else
      begin
      MsgBox('你的操作系统不适合该程序的安装,程序将关闭退出!', mbInformation, MB_OK);
        Result:= False
             exit;
end
      end
   问题是 在win8以上的系统还是说不能运行,请看一下判断是否有问题,谢谢
离线lovelost

发帖
140
金钱
1060
威望
106
只看该作者 1 发表于: 2015-10-30
我在我的Win10 x64下测试正常,可以运行,BTW:你的GetWindowsVersionEx(Version);放的位置?

function InitializeSetup(): Boolean;
    var ResultCode: Integer;
        Version: TWindowsVersion;

  begin
     GetWindowsVersionEx(Version);
  ///  限制为操作系统 win7以上系统     win8/8.1 6.3    win10  6.4  或10.0
     if ((Version.Major=6) and (Version.Minor>=2)) or (Version.Major=10)  then
       begin
        Result:= true
       end
      else
      begin
        MsgBox('你的操作系统不适合该程序的安装,程序将关闭退出!', mbInformation, MB_OK);
        Result:= False
        exit;
      end;
end;
离线zhang981322

发帖
79
金钱
260
威望
26
只看该作者 2 发表于: 2015-10-30
好的 谢谢 我试下。