Скачать: CL | DM;

arj   Найти похожие ветки 

← →
lety   (2002-08-20 20:36) [0]

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

---

← →
~Rand~ ©   (2002-08-20 21:34) [1]

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

---

← →
lety   (2002-08-20 22:31) [2]

Э! А еще? :)

---

← →
lety   (2002-08-21 07:53) [3]

up

---

← →
Tornado ©   (2002-08-21 08:10) [4]

Не знаю насчет определенных файлов, но извлечь/упаковать все файлы (в этом случае он один всего правда)из 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 );

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c