In die Hilfe schauen?
http://docwiki.embarcadero.com/Libra...ipFile.Extract
Delphi-Quellcode:
procedure Extract(const FileName: string; const Path: string = ''; CreateSubdirs: Boolean = True); overload;
procedure Extract(Index: Integer; const Path: string = ''; CreateSubdirs: Boolean = True); overload;
Der letzte Parameter, den Du auf True gesetzt hast, steuert die Erzeugung der Ordnerstruktur. Ist er True, dann wird die Ordnerstruktur erzeugt, ist er false, dann nicht.
Einfach mal mit
PZip.Extract(SL[i], Pf, false);//<---
probieren?