mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-03 10:10:48 +01:00
20 lines
267 B
ObjectPascal
20 lines
267 B
ObjectPascal
program testsingle;
|
|
|
|
uses sysutils, zipper;
|
|
|
|
Var
|
|
FN : String;
|
|
|
|
begin
|
|
FN:=GetTempFileName;
|
|
TUnzipper.Unzip('test.zip','files/file1.txt',FN);
|
|
if not FileExists(FN) then
|
|
Writeln('Error')
|
|
else
|
|
begin
|
|
DeleteFile(FN);
|
|
Writeln('OK');
|
|
end;
|
|
end.
|
|
|