Eric_Allman
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Bulat_Ziganshin
Цитата:| есть unarc.dll, как ей пользоваться - писали пару дней назад |
Да, я видел. Там было сказано, что unarc.dll имеет единственную функцию, и ссылка на скрипт для Inno setup. Собственно, его я и пытался взять за основу.
Код:| function FreeArcExtract(var callback: longword; cmd1,cmd2,cmd3,cmd4,cmd5,cmd6,cmd7,cmd8,cmd9,cmd10: PAnsiChar): integer; cdecl; external 'unarc' name 'FreeArcExtract'; |
Код: function Unpack: Integer;
var
callback: longword;
Begin
callback:= WrapFreeArcCallback(@FreeArcInfoCallback,4);
CancelCode:= 0;
AppProcessMessage;
try
Result:= FreeArcExtract (callback, 'x', '-o+', '-dp' + 'videos.arc', '--', 'c:\222111333', '', '', '', '', '');
if CancelCode < 0 then Result:= CancelCode;
if Result >= 0 then Result:= origsize;
except
Result:= -63;
end;
end; |
Результат:
 |
