#pas
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
begin
    if total then
   _hi_onEvent(THiAsmClass(sender).onProgressMax, value) else
   _hi_onEvent(THiAsmClass(sender).onProgress, value);
    Result := S_OK;
end;