Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для R.i.m.s.k.y.

Ветеран


Сообщения: 1640
Благодарности: 536

Профиль | Отправить PM | Цитировать


ToBeLife, полный путь до файла, с расширением, кавычки не нужны, они добавляются в процедурах RD/RF

Johny777, не всегда работает встроенная функция удаления файлов и папок, поэтому я через комстроку сделал.
И копирование тоже делаю через комстроку, и добавление кавык тоже своими функциями а не встроенными тк работают они по настроению, а разбираться чего установщик выкаблучивается вломм.
Код: Выделить весь код
function Add_Quotes(strng : String):String;
begin
  Result := '"' + strng + '"';
end;

procedure copy1file(fromfile, tofile:string);
begin
  Exec('cmd.exe', ' /c copy /Y /V /B ' + Add_Quotes(fromfile) + ' ' + Add_Quotes(tofile),ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:25, 20-10-2012 | #1161