Имя пользователя:
Пароль:
 

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

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

Ветеран


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

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


Цитата truth:
Этот чекбокс есть во многих инсталляторах, так как же он осуществляется правильно? »
Этот чекбокс от лукавого, инишник оперы я не знаю, но могу предложить функцию замены в текстовом файле
Код: Выделить весь код
[_Code]
procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TArrayOfString;
  //str : string;
  i : Integer;
begin
  if not FileExists(FilePath) then begin MsgBox('Файл не найден ' + FilePath, mbError, mb_Ok); Exit;end; // если файла нет, выходим
  LoadStringsFromFile(FilePath, S); // загружаем файл
  for i:= 0 to GetArrayLength(S)-1 do begin
    if (Pos(AnsiUpperCase(find), AnsiUpperCase(S[i])) > 0) then begin
      StringChangeEx(S[i], find, replace, True);
    end;
  end;
  SaveStringsToFile(FilePath, S, False); // сохраняем файл
end;

//использование в инишнике мегуя заменяется import(" на import(" + путь к папке плагинов + \
RePlaceTextinFile(ExpandConstant('{app}\Megui\allprofiles\AviSynth\AviSynth_dp_ MCTemporalDenoise.xml'), 'import("', 'import("'+plugindir2_5+'\');
Цитата STRAYKER:
Как сделать установку игры быстрее с 25 мин до 10 мин »
поставить SSD ;-)
Цитата STRAYKER:
КАК сделать слайдшоу »
в шапке коллекция скриптов - там есть

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


Отправлено: 09:04, 29-11-2010 | #63