Source position: unzip51g.pp line 98
function FileUnzipEx(
SourceZipFile: pChar;
TargetDirectory: pChar;
FileSpecs: pChar
):Integer;