Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c