1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
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.
|
