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

以下代码INNO最新版本不能用了,报错,不懂Pascal,请教修改? [复制链接]

上一主题 下一主题
离线546242502
 

发帖
332
金钱
-3060
威望
-306
只看楼主 倒序阅读 0 发表于: 2015-08-04


进行MD5的校验代码
[code]
var
ComMD5: Integer;
FileExit: Boolean;
begin
if CurPageID = wpSelectDir then
begin
  FileExit := FileExists(ExpandConstant('{app}\abcde.exe'));//判断文件 abcde.exe 是否存在于安装目录下
  
  if FileExit = false then begin//如果未找到
    MsgBox('未在该文件夹中搜索到 abcde V0.0.1'#13#13'请选择正确的目录!', mbInformation, MB_OK);
    Result := False;
  end else if FileExit = True then begin
    ComMD5 := CompareStr(GetMD5OfFile(ExpandConstant('{app}\ abcde.exe')), '56faga4457fa87fda4654f5645afdafddafdaf');//计算文件 MD5 值,并把结果返回给 ComMD5,0 代表相等
    if ComMD5 <> 0 then begin//如果文件不相同
    MsgBox('文件版本不对或文件已被应用过补丁!'#13#13'请安装正确的版本或退出当前安装程序!', mbInformation, MB_OK);
    Result := False;
    end else
    Result := True;
  end;
end
else
  Result := True;
end;
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-08-07
猜测你可能是要这样:


[code]
var
ComMD5: Integer;
FileExit: Boolean;

function NextButtonClick ( CurPageID : Integer): Boolean;
begin
if CurPageID = wpSelectDir then
begin
  FileExit := FileExists(ExpandConstant('{app}\abcde.exe'));//判断文件 abcde.exe 是否存在于安装目录下

  if FileExit = false then begin//如果未找到
    MsgBox('未在该文件夹中搜索到 abcde V0.0.1'#13#13'请选择正确的目录!', mbInformation, MB_OK);
    Result := False;
  end else begin
    ComMD5 := CompareStr(GetMD5OfFile(ExpandConstant('{app}\ abcde.exe')), '56faga4457fa87fda4654f5645afdafddafdaf');//计算文件 MD5 值,并把结果返回给 ComMD5,0 代表相等
    if ComMD5 <> 0 then begin//如果文件不相同
    MsgBox('文件版本不对或文件已被应用过补丁!'#13#13'请安装正确的版本或退出当前安装程序!', mbInformation, MB_OK);
    Result := False;
    end else
    Result := True;
  end;
end
else
  Result := True;
end;
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 2 发表于: 2015-08-07
回 1楼(gnatix) 的帖子
gnatix:猜测你可能是要这样:var....... (2015-08-07 02:56) 

谢谢老虎版主解答,测试正常