Useful Dll for Inno Setup users

[altef_4]

Originally Posted by peterf1999

• Added CheckFileSHA1 function to dll.

small error, if file for check not exists - error.
p.s. in attachment working module+example for those who don't know how to use this library.
p.p.s. can you provide me example how do you create callback for inno setup in delphi without CallbackCtrl.dll/InnoCallback.dll/CallbackAddr ?

[peterf1999]

Originally Posted by altef_4

small error, if file for check not exists - error.
p.s. in attachment working module+example for those who don't know how to use this library.
p.p.s. can you provide me example how do you create callback for inno setup in delphi without CallbackCtrl.dll/InnoCallback.dll/CallbackAddr ?

type THashProgress = function(OverallProgress,FileProgress: Integer): Boolean of object;




function CheckFileSHA1(Filename,SHA1HashHex: AnsiString; PctOfTotal: integer; callback: THashProgress): integer export; stdcall;
begin
...

if not callback(FileProgress+OverallProgress,round(FileProgress*100/PctOfTotal)) then begin
      Result:=-1;
      break;
      end;
...

end;

I didn't intentionally handle the exception of TFileStream, because the file must exist.

[peterf1999]

• Added GetFileSHA1 function to dll.
  
• CheckFileSHA1 : no more exception is raised if the file to check is not found, an error code is returned from function (see the 1st post).