[Inno Setup] 对比字符串

Posted 2021-02-13 liujx2019

 

[Code]
var
  MD5Comp: string;

procedure ExitProcess(uExitCode:UINT);
  external ‘[email protected] 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;