Source position: unzip51g.pp line 108
function ViewZip(
SourceZipFile: pChar;
FileSpecs: pChar;
Report: UnzipReportProc
):Integer;