| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

arj

lety ©   (2002-08-20 20:36:00) 

Как ПРОГРАММНО можно извлечь из архива .arj определенные файлы?

---

Tornado   (2002-08-21 08:10:00) [1]

Не знаю насчет определенных файлов, но извлечь/упаковать все файлы (в этом случае он один всего правда)из ARJ-архива можно так: (с использованием процесса, программа ждет пока будут упакованы/распакованы файлы после чего продолжает свою работу. Переменные а1,р1 определяют какой файл будет упакован и куда соответственно). Удачи

var
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
cmdline, a1, p1:string;


ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
a1 := ExtractFilePath(Application.ExeName) + "Data\Izm_12.mdb";
p1 := ExtractFilePath(Application.ExeName) + "Backup\archiv";
cmdline:=ExtractFilePath(Application.ExeName) + "arj.exe" + " " + "a" + " " + "-e" + " " + p1 + " " + a1;
if not CreateProcess( nil,
PChar(cmdline),
nil,
nil,
False,
0,
nil,
nil,
si,
pi )
then
begin
Application.MessageBox(Не могу запустить процесс архивации!","Error", MB_OK+MB_ICONERROR);
Exit;
end;
WaitForSingleObject( pi.hProcess, INFINITE ); {ждет окончания процесса архивации пока не будет закрыто DOS-окно}
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );

---

lety   (2002-08-21 07:53:00) [2]

up

---

lety   (2002-08-20 22:31:00) [3]

Э! А еще? :)

---

~Rand~   (2002-08-20 21:34:00) [4]

нужен компонент DArJ.
зайди на http://kardavosh.narod.ru

---

Наверх