Скрипты Inno Setup. Помощь и советы [часть 7]

Dodakaedr · Конфигурация компьютера

Подскажите, как можно отредактировать reg файл через inno? Нужно при отмеченной определенной кнопки поменять значение.

sergey3695 · Отправлено: **21:23, 08-10-2014** | #**1782**

Цитата Dodakaedr:
отредактировать reg файл »
как текстовый файл попробуй отредактировать.

Код:

procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TArrayOfString;
  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;

Dodakaedr · Конфигурация компьютера

Цитата sergey3695:

как текстовый файл попробуй отредактировать. »

А можно пример применения вашей процедуры? У меня не получается. Нужно найти и поменять эту строку

Код:

"General.Language"="eng.lng"

sergey3695 · Отправлено: **21:47, 08-10-2014** | #**1784**

Цитата Dodakaedr:

пример применения вашей процедуры »

RePlaceTextinFile(FilePath:string; find:string; replace:string);

Код:

RePlaceTextinFile(ExpandConstant('{app}\Setup.reg'),'"General.Language"="eng.lng"','"General.Language"="rus.lng"');

Dodakaedr · Конфигурация компьютера

sergey3695, Я так и делал, просто тупанул с размещением файла, но все равно не меняет и нарушает строение строк reg файла.

sergey3695 · Отправлено: **23:26, 08-10-2014** | #**1786**

Dodakaedr,

Код:

procedure RePlaceTextinFile(FilePath:string; find:string; replace:string);
var
  S: TStringList;
  i : Integer;
begin
  S:=tstringlist.create;
  S.LoadFromFile(FilePath);
for i := 0 to S.Count-1 do
begin
if S.Names[i]=find then
begin
  S.Delete(i);
  S.Insert(i,find+'='+replace);
end;
end;
  S.SaveToFile(FilePath);
end;

procedure InitializeWizard;
begin
  RePlaceTextinFile(ExpandConstant('{src}\1.reg'),'"version"','"1.1"');
end;

"version"="1.1" (в этой строке меняем).

Dodakaedr · Конфигурация компьютера

sergey3695, Все равно не хочет менять.

sergey3695 · Отправлено: **23:48, 08-10-2014** | #**1788**

Dodakaedr, http://rghost.ru/58421287
Да ну? просмотри содержимое 1.reg ("version"="1.0"). Закрой просмотр. Скомпили установщик, запусти и закрой. Посмотри еще раз содержимое 1.reg ("version"=???). Тут то я проверил прежде чем давать код.

Dodakaedr · Конфигурация компьютера

sergey3695, Ага теперь понял! Спасибо!

Антон_Мураткин@vk · Отправлено: **11:52, 09-10-2014** | #**1790**

Проблема заключается вот в чём.

Удобство чтения с экрана 100%. Инсталлятор отображается нормально.

Скриншот.

Удобство чтения с экрана 125% Инсталлятор отображается без кнопок установки и отмены + всё растянулось.

Скриншот.

И удобство чтения с экрана 150% Инсталлятор отображается без кнопок установки и отмены + всё растянулось ещё больше.

Скриншот.

Можно ли это как то исправить? Подскажите если кто знает.
Заранее благодарю!!!