mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 12:53:42 +02:00
30 lines
560 B
ObjectPascal
30 lines
560 B
ObjectPascal
program ExtractODT;
|
|
// minimal function test zipper unit (related to mantis 15836)
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Uses Zipper,sysutils;
|
|
|
|
procedure usage;
|
|
begin
|
|
Writeln('ExtractOdt <filename>');
|
|
halt;
|
|
end;
|
|
|
|
var unzipper : TUnzipper;
|
|
EDir,
|
|
FileName : string;
|
|
begin
|
|
if paramcount<1 then
|
|
Usage;
|
|
FileName:=paramstr(1);
|
|
if not fileexists(FileName) then
|
|
Usage;
|
|
edir:=extractfilename(filename)+'.extractiondir';
|
|
mkdir(edir);
|
|
unzipper:=TUnzipper.create;
|
|
unzipper.FileName:=FileName;
|
|
unzipper.outputpath:=edir;
|
|
unzipper.UnzipAllFiles;
|
|
|
|
end. |