[Inno Setup] 对比字符串

最新推荐文章于 2024-02-03 00:10:04 发布

weixin_30565199

最新推荐文章于 2024-02-03 00:10:04 发布

阅读量885

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/liujx2019/p/10531784.html

本文介绍了一个使用MD5校验确保安装文件完整性的示例代码。在安装过程中，程序会检查核心文件的MD5值是否与预设值一致，如果不一致则提示用户并终止安装流程，以防止安装被篡改的文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[Code]
var
  MD5Comp: string;

procedure ExitProcess(uExitCode:UINT);
  external 'ExitProcess@kernel32.dll stdcall';

procedure CurStepChanged(CurStep: TSetupStep);
begin
  MD5Comp := '32297BCBF4D802298349D06AF5E28059';

  if CurStep = ssInstall then
  begin

   if MD5Comp <> GetMD5OfFile(ExpandConstant('{app}\cg.npa')) then
   begin
     MsgBox('A patched version detected. Setup will now exit.', mbInformation, MB_OK);
     ExitProcess(1);
   end;
  end;
end;