![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как из Делфи запустить архивирование файлов (напр с:\*.doc) с ..
Гость22 © (2005-08-19 10:23:00)..помощью WinRAR?
Гость22 (2005-08-19 15:32:00) [1]
> ssk © (19.08.05 13:57) [11]
> может это поможет
то, что надо!
ssk (2005-08-19 13:57:00) [2]может это поможет
http://ucad.pisem.net/delphi_lib/rar/librar.htm
alex_*** (2005-08-19 13:43:00) [3]не смешно. Грустно, к сожалению
http://skvozilka.com.ru/delphi/doc/com/WaitForSingleObj.htm
Гость22 (2005-08-19 13:10:00) [4]Плохиш © (19.08.05 12:59) [8]
Смешно... А все-таки
Плохиш (2005-08-19 12:59:00) [5]www.yandex.ru
Гость22 (2005-08-19 12:51:00) [6]
> Как это пользовать куча статей в инете.
Например...
alex_*** (2005-08-19 12:26:00) [7]запускать winrar с помощью CreateProcess, потом ждать (WaitForSingleObject). Как это пользовать куча статей в инете.
syte_ser78 (2005-08-19 11:06:00) [8]Глупый -
после выполнения винэкзека запускаеш таймер.
В обработчике таймера
try
assign(f,'имя_файла');
reset(f);
close(f);
...пишем в лог
...закрываем таймер
except
...файл еще не создан.
end;
Насчет умного - жди ответа мастеров.
Гость22 (2005-08-19 10:50:00) [9]а можна поподробней про умный вариант
а еще подробней про глупый - тоже ведь вариант
syte_ser78 (2005-08-19 10:43:00) [10]Гость22 (19.08.05 10:41) [2]
Можно сделать умно, а можно глупо(но просто).
Умно - использывать библиотеку архиватора
Глупо - ... написал да стер, заплюют :)
Гость22 (2005-08-19 10:41:00) [11]мне надо после архивации проверить наличие архива (т.е., сформировался или нет - для записи в лог). Так вот, если архивация будет продолжаться долго, смогу ли я командой fileexists('archive,rar')проверить его наличие?
Просто получается, что Делфи запустив процес WinRAR, продолжает выполнять свои команды (следующая будет if fileexists('archive,rar') then...) и на момент проверки архива еще не будет, т.к. архивация еще продолжается. Что делать в этом случае?
syte_ser78 (2005-08-19 10:27:00) [12]Как и любой другой екзешник
komanda:='winrar a ' + то_что паковать;
winexec(Pchar(komanda), SW_SHOW);
Почитай хелп по ключам рара.