[Schemer]

Я наверно совсем тугой. Но эти коды я не понимаю. Куда вставлять?
Если я вставляю после procedure вот так:

Код:

procedure RePlaceTextinFile(ExpandConstant('C:\file.xml'), 'en', 'ru');

то выдает ошибку:

Код:

colon (':') expected.

А если после var вот так:

Код:

var
RePlaceTextinFile(ExpandConstant('C:\file.xml'), 'en', 'ru');

то выдает это:

Код:

Duplicate identifier 'RePlaceTextinFile'

А если после begin то при компиляции ошибок не выдает, но с xml файлом ничего не происходит. Даже если его нет. Если я правильно понимаю эту строчку:

Код:

if not FileExists(FilePath) then begin MsgBox('Файл не найден', mbError, mb_Ok); Exit;end;

То как минимум должно выдать ошибку об отсутствие файла при установке?
А какой инно сетап нужен? Я свой давно не обновлял, у меня - Inno Setup Compiler 5.2.4-dev (ISPP 5.2.4.0) (build 090319)

[Schemer]

Вот еще что нашел:

Код:

///////////////////////////////////////////////////////////////////////////////
// Find given text in given file, and replace
// complete textline with given text.
// Created: March 27, 2002 by S.T.I.Bracke
// Revised: May 22, 2002 by S.T.I.Bracke
function ReplaceLine(strFilename, strFind, strNewLine: String): Boolean;
var
  strTemp : String;
  iLineCounter : Integer;
  a_strTextfile : TArrayOfString;
 
begin
  { Load textfile into string array }
  LoadStringsFromFile(strFilename, a_strTextfile);
 
  { Search trough all textlines for given text }
  // old line
  // for iLineCounter := 1 to High(a_strTextfile) do
  // new line corrected by Nikolaus Moll
  for iLineCounter := 0 to GetArrayLength(a_strTextfile)-1 do
    begin
      { Overwrite textline when text searched for is part of it }
      if (Pos(strFind, a_strTextfile[iLineCounter]) > 0) then
        a_strTextfile[iLineCounter] := strNewLine;
    end;
 
  { Save string array to textfile (overwrite, no append!) }
  SaveStringsToFile(strFilename, a_strTextfile, False);
 
  Result := True;
 
end;

Результат тот же.

[cleric1985_n]

Подскажите как заставить выполнятся следующее задание из секции Code, в обычном режиме все работает, а при тихой установке ни в какую, может прописать что надо..?!

Код:

[Registry]
; .ext1
Root: HKCR; Subkey: .ext1; ValueType: string; ValueName: ; ValueData: MyProgramFile1; Flags: uninsdeletevalue; Tasks: MostVideo\DiracVideo; BeforeInstall: BackupData('ext1')
Root: HKCR; Subkey: MyProgramFile1; ValueType: string; ValueName: ; ValueData: "My Program File ¹1"; Flags: uninsdeletekey; Tasks: MostVideo\DiracVideo
Root: HKCR; Subkey: MyProgramFile1\DefaultIcon; ValueType: string; ValueName: ; ValueData: {sys}\notepad.exe,0; Tasks: MostVideo\DiracVideo
Root: HKCR; Subkey: MyProgramFile1\shell\open\command; ValueType: string; ValueName: ; ValueData: """{sys}\notepad.exe"" ""%1"""; Tasks: MostVideo\DiracVideo


procedure BackupData(FileExt: String);
var
  OldValueData: string;
begin
  if RegKeyExists(HKCR, '.' + FileExt) then
    begin
      RegQueryStringValue(HKCR, '.' + FileExt, '', OldValueData);
      RegWriteStringValue(HKCR, '.' + FileExt + '(backup)', '', OldValueData);
    end;
end;

[R.i.m.s.k.y.]

То как минимум должно выдать ошибку об отсутствие файла при установке »

А как Вы вызываете эту процедуру? Я из секции Files. Но можно еще через Event Function, почитайте в справке про CurStepChanged. Вашего кода я не вижу - кладу свой.

Код:

[Files]
;После копирования файлов будет запущена MeGUIavs
Components: MeGUI; Source: CodeRim\CodeRim\x264\*; DestDir: {app}\x264\; BeforeInstall: ChangeCaption('Установка MeGUI'); AfterInstall: MeGUIavs; Flags: ignoreversion uninsrestartdelete setntfscompression

[_Code]
procedure ChangeCaption(str: string);
    begin
    WizardForm.StatusLabel.Caption:= str;
end;

procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TArrayOfString;
  //str : string;
  i : Integer;
begin
  if not FileExists(FilePath) then begin MsgBox('Файл не найден', 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;


procedure MeGUIavs;
var plugindir2_5 : String;

begin

  RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\AviSynth','plugindir2_5', plugindir2_5);

  RePlaceTextinFile(ExpandConstant('{app}\x264\Megui\allprofiles\AviSynth\AviSynth_dp_ DeBlock.xml'), 'import("', 'import("'+plugindir2_5+'\');

end;

end.

А какой инно сетап нужен »

В инно не нужны гонки за версией. У меня стоит Inno Setup Compiler 5.3.7 и ISPP 5.3.6, к примеру на 198 странице у камрада SeDmY не клеилось из-за юникод версии инно.

Подскажите как заставить выполнятся следующее задание из секции Code »

Читаем про CurStepChanged

Код:

Procedure CurStepChanged(CurStep: TSetupStep);
Begin
    if CurStep = ssInstall then BackupData(ваши параметры)
End;

А вообще странно, если в тихом режиме применяется Registry, то должна отработать и BeforeInstall: BackupData('ext1'). В коде подставьте MsgBox('???', mbError, mb_Ok) - будет видно что где происходит (или не происходит).

Реестр можно бэкапить вот так, кстати если данные в реестре заковыристые вы уверены что RegWriteStringValue(HKCR, '.' + FileExt + '(backup)', '', OldValueData) правильно их выгрузит?

Код:

procedure BackupReg();
var
  res, i, k: Integer;
  reg0, reg, RegEdit: string;
  Key: TArrayOfString;
begin
  RegEdit:= ExpandConstant('{sys}\reg.exe');
  reg0:= ExpandConstant('{app}\BackUp');
  Key:= ['HKLM\SOFTWARE\GNU',
         'HKEY_CURRENT_USER\SOFTWARE\GNU',
         ];
  for i:= 0 to GetArrayLength(Key)-1 do begin
    reg := reg0 + IntToStr(i) + '.reg';
    if not FileExists(reg) then begin Exec(RegEdit, ' export ' + AddQuotes(Key[i]) + ' ' + AddQuotes(reg), ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilTerminated, res);
    end;
    end;

[ecspertiza]

Всем здрасти, Inno Setup использую относительно недавно, так что если вопрос нубский сильно не пинайте, при установки софта если он уже установлен то Inno Setup по умолчанию выдает сообщение мол такая папка уже есть, продолжить туда ставить или нет, можно ли как то изменить текст этого сообщения ?

[cleric1985_n]

ecspertiza,

DirExistsWarning=no

[cleric1985_n]

Читаем про CurStepChanged »

А зачем оно нужно, если процедура вызывается через BeforeInstall:

Реестр можно бэкапить вот так, кстати если данные в реестре заковыристые вы уверены что RegWriteStringValue(HKCR, '.' + FileExt + '(backup)', '', OldValueData) правильно их выгрузит »

В обычном режиме все корректно отрабатывает, это есть самое обычное сохранение ассоциаций..

[ecspertiza]

ecspertiza, DirExistsWarning=no »

Это конечно хорошо, но насколько я понял этот флажок совсем выключит сообщение, а хотелось бы просто изменить его текст.

[Habetdin]

хотелось бы просто изменить его текст. »

Код:

[Messages]
DirExistsTitle=Папка существует
DirExists=Папка%n%n%1%n%nуже существует. Всё равно установить в эту папку?

Изменяйте

[DevilisH]

Здравствуйте. Помогите, пожалуйста, с 2 проблемами:
1) Как изменить цвет шрифта инсталлера на белый?
2) Как убрать белые полосы, которые образуются при загрузке своей картинки на все окно инсталлятора?