VPF::Разархивирование - Форум программистов

DragonFire

Дата 27.6.2006, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Как разархивировать архив "D:\1.rar" в папку "C:\1\" с заменой одноименных файлов в папке??

--------------------

http://dragonfire.cimanu.ru/

_hunter

Дата 27.6.2006, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

добавь ключ "o+"

--------------------

Tempora mutantur, et nos mutamur in illis...

Poseidon

Дата 27.6.2006, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

DragonFire, не понял в чем вопрос. Как разархивировать или как это сделать с заменой?

Добавлено @ 16:30
В любом случае может поможет: http://vingrad.ru/DELPHI-DLP-001006

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Yanis

Дата 27.6.2006, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

DragonFire
Почитай файл Rar.txt в каталоге установленного WinRar'а.

--------------------

*щёлк*

DragonFire

Дата 27.6.2006, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Спасибо всем, решил не морочится пока с распаковщиком прогрмамным, просто написал:

Код


start "" WinRar e -o+ "1.rar" "*.*" "c:\1\"

--------------------

http://dragonfire.cimanu.ru/

DragonFire

Дата 27.6.2006, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Написал простенькуп процедуру:

Код


procedure LoadRAR(RAR:String);
var f:textfile;
    s:string;
begin
  with FMenu do begin
  If InstD.Execute then begin
    s:='start "" WinRar e -o+ "'+AppFolder+'Patchs\'+RAR+'.rar" "*.*" "'+ExtractFilePath(InstD.FileName)+'"';
    assignfile(f,'C:\rar.bat');
    rewrite(f);
    writeln(f,s);
    closefile(f);
    winExec(PChar('C:\rar.bat'),SW_ShowNormal);
    DeleteFile('C:\rar.bat');
  end;
  end;
end;

В итоге в файл ничего не записывается и соответственно ничего не выполняется, почему?

--------------------

http://dragonfire.cimanu.ru/

Yanis

Дата 27.6.2006, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

А что это за программа такая WinRar? Надо просто rar.exe.

--------------------

*щёлк*

DragonFire

Дата 27.6.2006, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Не winRAR лучше работает - к тому же так он у меня хоть что-то делает))
Вот так сам bat файл прекрасно все делает, только прога его почему-то не создает... smile

Код


start "" WinRar x -o+ "E:\installer\Patchs\Patch.rar" "*.*" "E:\1\"

--------------------

http://dragonfire.cimanu.ru/

DragonFire

Дата 27.6.2006, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Я понял - надо писать так:

Код


procedure LoadRAR(RAR:String);
var f:textfile;
    s:string;
begin
  with FMenu do begin
  If InstD.Execute then begin
    s:='start "" WinRar e -o+ "'+AppFolder+'Patchs\'+RAR+'.rar" "*.*" "'+ExtractFilePath(InstD.FileName)+'"';
    assignfile(f,'C:\rar.bat');
    rewrite(f);
    writeln(f,s);
    closefile(f);
    winExec(PChar('C:\rar.bat'),SW_ShowNormal);
  end;
  end;
end;

Только вот, как заставить файл удалится после распаковки?

--------------------

http://dragonfire.cimanu.ru/

Yanis

Дата 27.6.2006, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(DragonFire @ 27.6.2006, 22:43

)

Только вот, как заставить файл удалится после распаковки?

Какой именно? Архив или пакетный файл?

Добавлено @ 21:52
Хотя и тот и другой можно удалить прямо из командной строки.

--------------------

*щёлк*

Дата 28.6.2006, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

А нах бат фаил?
Просто кидай всё это в винЭкзэк

DragonFire

Дата 28.6.2006, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

Цитата(Yanis @ 27.6.2006, 21:46

)

Хотя и тот и другой можно удалить прямо из командной строки.

На самом деле bat файл - но это не важно, разобрался smile

, спс за помощь!!

Цитата(RAdmin @ 28.6.2006, 01:06

)

Просто кидай всё это в винЭкзэк

Не очень понял что кидать, архив?

--------------------

http://dragonfire.cimanu.ru/

Дата 28.6.2006, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Цитата(DragonFire @ 28.6.2006, 14:41

)

Не очень понял что кидать, архив?

команду твоей переменной "s". Что-то типа winExec(PChar(s),SW_Hide);
и не надо создавать баты.

Это сообщение отредактировал(а) RAdmin - 29.6.2006, 15:33

DragonFire

Дата 29.6.2006, 07:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9

АА, прикольно, попробую, СПС smile

--------------------

http://dragonfire.cimanu.ru/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »