mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-20 10:20:44 +01:00
20 lines
296 B
ObjectPascal
20 lines
296 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: no file named ',FN)
|
|
else
|
|
begin
|
|
// DeleteFile(FN);
|
|
Writeln('OK for ',fn);
|
|
end;
|
|
end.
|
|
|