Показать сообщение отдельно
  #5  
Старый 15.02.2017, 13:15
Аватар для ffpereverzev
ffpereverzev ffpereverzev вне форума
Новичок
 
Регистрация: 14.02.2017
Сообщения: 50
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Всем огромное спасибо!

Спасибо большое за Ваши отклики!
После многочасовых ковыряний с WinExec все таки пришлось обратиться к ShellExecute и, в итоге, вот, что получилось.
Код:
procedure TForm1.Button6Click(Sender: TObject);
Var
  Log_f    :string; //Переменная для хранения пути к лог-файлу
  Log_b    :string; //Переменная для хранения лог-файла бэкапа 
  Bck_f    :string; //Переменная для хранения пути к каталогу бэкапов
  Prj_d    :string; //Переменная для хранения пути к каталогу проекта
  Pnr_f    :string; //Переменная для хранения пути к файлу ПНР
  par:string; // Переменная, для передачи параметров в командную строку

begin
Log_f := Log_file.Text;  //Считываем текст из окна Log_file
Log_b := Log_backup.Text; //Считываем текст из окна Log_backup
Bck_f := Backup_file.Text; //Считываем текст из окна Backup_file
Prj_d := Project.Text; //Считываем текст из окна Project
Pnr_f := PNR_file.Text; //Считываем текст из окна PNR_file
par:='/K c:\"Program Files"\WinRAR\Rar.exe a -agDDMMYYYY_HHMM -ep1 -m3 -ow -rr100 -inul -t -ilog'+'"'+Log_f +'" -z"'+Pnr_f +'" "'+Bck_f +'" "'+Prj_d +'"'; // Описываем параметры
ShellExecute(Handle, nil, 'cmd.exe', PChar(par), nil, SW_SHOW); //Выполняем необходимую операцию (архивирование)

end;

Только обнаружился интересная ошибка. Почему-то при архивировании, каталог для файла бэкапа получился "плавающий", то есть архив сохраняется в разные папки рандомным образом. Пока разбираюсь из-за чего это может быть.
Ответить с цитированием