имя файла запакованного ZipForge

[brain22]

OpenDialog2.Filter:='(*.zip)|*.zip| ';
if OpenDialog2.Execute
then begin
with ZipForge1 do
begin

FileName := OpenDialog2.FileName;

OpenArchive(fmOpenRead);
Password := '1';

BaseDir := 'C:\';

ExtractFiles('*.ker');//


CloseArchive();
end;
когда файл распокован, мне нужно узнать его имя и связать с переменной F:file;

AssignFile(f,?);


Как узнать имя файла запакованного с помощью ZipForge?

[Noor]

Проверяйте то место куда извлекали
P.S. Оформляйте код согласно принятых норм, заключая текст в [ CODE][ /CODE] - знак # в редакторе

[Noor]

вот примерный код распаковки архива с дальнейшим определением имени извлекаемого файла и загрузкой содержимого извлеченного файла в Мемо.Все строки комментировать не стану, смотрите справку по работе с компонентом

var
ArchiveItem: TZFArchiveItem;
FileFromArhiv:string; //переменная для хранения имени файла в архиве(он же и будет извлечен)
begin
if OpenDialog1.Execute then
   begin

    try
ZipForge1.BaseDir := 'C:\test\out\';
ZipForge1.FileName := OpenDialog1.FileName; //имя нашего архива
ZipForge1.OpenArchive;
//получаем список файлов в архиве
if (ZipForge1.FindFirst('*.*',ArchiveItem,faAnyFile-faDirectory)) then
    repeat
    FileFromArhiv:=ArchiveItem.FileName; //присваиваем переменной название файла
    until (not ZipForge1.FindNext(ArchiveItem));
ZipForge1.ExtractFiles('*.*');
finally
ZipForge1.CloseArchive;
Memo1.Lines.LoadFromFile(ZipForge1.BaseDir+FileFromArhiv); // загружаем в мемо содержимое извлеченного файла
end;
end;
end;