Was mache ich falsch?
Ich wollte testweise eine Zipdatei entpacken:
Delphi-Quellcode:
if OpenDialog1.Execute then
begin
MkDir(ExtractFilePath(OpenDialog1.FileName) + ExtractFileName(OpenDialog1.FileName) + 'Folder');
KAZip1.ExtractToFile(OpenDialog1.FileName, ExtractFilePath(OpenDialog1.FileName) + ExtractFileName(OpenDialog1.FileName) + 'Folder');
end;
Aber das einzige was neu ist: Der Ordner
