[Solved} [Abbrevia] Getting the filename of an extracted file

[heebiejeebies]

How do I get the filename of the file I've just extracted from a .zip using Abbrevia?

There should only ever be one file in the .zip, and it will be password protected, so I believe Abbrevia is my only option.

Thanks for your help.

[paweld]

Code: Pascal  [Select][+][-]

1. var
2.   unZip: TAbUnZipper;
3.   i: Integer;
4. begin
5.   unZip := TAbUnZipper.Create(Self);
6.   unZip.FileName := 'd:\archive.zip';
7.   unZip.ArchiveType := atZip;
8.   unZip.ExtractOptions := [eoCreateDirs, eoRestorePath];
9.   for i := 0 to unZip.Count - 1 do
10.   begin
11.     if unZip.Items[i].IsDirectory then
12.       ShowMessage('Directory: ' + unZip.Items[i].FileName)
13.     else
14.       ShowMessage('File: ' + unZip.Items[i].FileName);
15.   end;
16.   unZip.Free;        
17. end;    

[heebiejeebies]

Worked, thank you!