Question

当我编译下面的代码时，它完成没有错误，但是当我尝试运行安装文件时，我得到一个类型不匹配错误。谁能告诉我可能是什么原因造成的？（确切的错误消息是“运行时错误（1:66）：输入不匹配。”）

[Setup]
DefaultDirName={code:AppDir}\MyApp

[Code]
function AppDir(Param: String): String;
var
 Check: Integer;
begin
 Check := GetWindowsVersion();
 if Check = 6.0 then
 Result := ExpandConstant('{userdocs}')
 else
 Result := ExpandConstant('{pf}');
end;

Answer 1

引自GetWindowsVersion()的Inno设置文档：

返回打包为单个整数的Windows的版本号。高8位指定主要版本;以下8位指定次要版本;低16位指定内部版本号。例如，此函数将在Windows 2000上返回$ 05000893，版本为5.0.2195。

您无法与浮点值进行比较，您需要提取版本号的部分，如下所示：

function AppDir(Param: String): String;
var
  Ver: Cardinal;
  VerMajor, VerMinor, BuildNum: Cardinal;
begin
  Ver := GetWindowsVersion();
  VerMajor := Ver shr 24;
  VerMinor := (Ver shr 16) and $FF;
  BuildNum := Ver and $FFFF;

  if VerMajor >= 6 then
    Result := ExpandConstant('{userdocs}')
  else
    Result := ExpandConstant('{pf}');
end;

请注意，永远不要检查VerMajor是否相等，因为对于较低或较高的Windows版本，这都会失败。请始终使用<=或>=。

InnoSetup＆amp; Pascal - 即使在成功编译后运行时出现类型不匹配错误

1 个答案: