Pабота с arj

← →
stecoff (2002-11-14 15:42) [0]

Добрый день! Подскажите, как работать со старым досовским arj из Delphi (распаковать в определенный каталог, запаковать обратно). Желательно не используя сторонние компоненты. Delphi 6. Использование именно arj требует специфика задачи. Cпасибо

← →
Song © (2002-11-14 16:01) [1]

ShellExecute()

← →
Александр Спелицин © (2002-11-17 21:39) [2]

А также CreateProcess()

← →
hun (2002-11-18 18:02) [3]

что-то в таком духе
CreateProcess(nil,ExtractShortPathName("arj x -y a.arj"),nil,nil,false,CREATE_DEFAULT_ERROR_MODE, Nil, Nil, stin, stout);
if(stout.HProcess>0) then
repeat
j:=MsgWaitForMultipleObjects (1,stout.HProcess,false,100,QS_ALLEVENTS);
Application.ProcessMessages;
until j=WAIT_OBJECT_0

← →
Victor_Cr © (2002-11-20 09:17) [4]

Или банальный winexec

← →
Ocean © (2002-11-27 09:58) [5]

Совершенно согласен с hun, ведь обычно необходимо дождаться окончания работы архиватора, чтобы использовать результат. Для синхронизации еще можно

WaitForSingleObject(hProcess,INFINITE);

hProcess - первый пар-р CreateProcess.

← →
Song © (2002-11-27 10:10) [6]

2Ocean © (27.11.02 09:58)
С arj через WaitForSingleObject не получится.

Как говорит Земфира, почему?
У меня работает. Правда, в Win98. Возможно, из-за малости архива, так что вопрос не праздный.

← →
Дельфин (2002-11-28 17:12) [8]

в RxLib в юните RXShell есть ф-ция "FileExecuteWait"

Вот почему может не работать: http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1038323024

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