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