|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.04.2012, 19:42 | #1 |
Регистрация: 27.11.2011
Сообщений: 4
|
ZipForge
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? |
28.04.2012, 18:23 | #2 |
Сумрачная тень
Форумчанин
Регистрация: 05.03.2009
Сообщений: 689
|
Вы распаковываете файлы по маске:
Код:
Решений два: 1. Узнать имена файлов с помощью инструментов ZipForge. 2. Узнать имена файлов с помощью FindFirst, FindNext, FindClose. P.S. Оформляйте код в соответствующих тегах!
"ковыряю изнутри" (с)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ZipForge | lezgin | Компоненты Delphi | 2 | 03.04.2012 09:11 |
ZipForge Добавление файлов в подкаталог | phphel | Общие вопросы Delphi | 2 | 29.04.2011 18:07 |