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?

[3D Hunter]

Вы распаковываете файлы по маске:

ExtractFiles('*.ker');

Имена этих файлов неизвестны.
Решений два:
1. Узнать имена файлов с помощью инструментов ZipForge.
2. Узнать имена файлов с помощью FindFirst, FindNext, FindClose.

P.S. Оформляйте код в соответствующих тегах!