InnoSetup& Pascal - 即使成功编译后运行时也会出现类型不匹配错误

发布于 2024-08-20 20:51:50 字数 381 浏览 10 评论 0原文

当我编译下面的代码时，它完成时没有错误，但是当我尝试运行安装文件时，我收到类型不匹配错误。谁能告诉我可能是什么原因造成的？（确切的错误消息是“运行时错误（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;

原文

When I compile the code below, it completes without errors, but when I attempt to run the setup file I get a type mismatch error. Can anyone tell me what might be causing it? (exact error message is "Runtime Error (at 1:66): Type Mismatch.")

[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;

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

本宫微胖 2024-08-27 20:51:50

引用 Inno Setup 文档中的 GetWindowsVersion()：

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

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

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 版本。始终使用 <= 或 >= 代替。

Quoting from the Inno Setup documentation for GetWindowsVersion():

Returns the version number of Windows packed into a single integer. The upper 8 bits specify the major version; the following 8 bits specify the minor version; the lower 16 bits specify the build number. For example, this function will return $05000893 on Windows 2000, which is version 5.0.2195.

You can't compare with a floating point value, you need to extract the parts of the version number, like so:

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;

Note that you should never check VerMajor for equality, as this would fail for either lower or higher Windows versions. Always use <= or >= instead.

回复收藏 0 原文

~没有更多了~