[El Sanchez]

А можно наглядный пример? »

Stealthmax, исходники в свободном доступе, разработчик заложил возможность добавления пользовательских данных в деинсталлятор. GetPreviousData/SetPreviousData для записи/чтения пользовательских данных (строковых) в реестре в разделе регистрации установщика, сериализировать данные в строку и SetPreviousData в RegisterPreviousData, см. справку. ADS (альтернативные потоки данных) будут работать только на NTFS. Пример:

Скрытый текст

Код:

var
  Value: AnsiString;

  ...

  // запись
  SaveStringToFile(ExpandConstant('{src}\test.txt:MyStream'), 'Text in MyStream', False);

  // чтение
  LoadStringFromFile(ExpandConstant('{src}\test.txt:MyStream'), Value);

Я бы оставил как есть (запись бекапа во отдельный файл) или способ с GetPreviousData/SetPreviousData.

как заставить установщик по дефолту сохранять клантэг и ник в UTF-8 и убрать чекбокс "сохранить в UTF-8" »

Batistas, узнаю свой г-код, сейчас бы я так написал:

Скрытый текст

Код:

[Setup]
AppName=test
AppVerName=test
DefaultDirName={tmp}
DirExistsWarning=no
Uninstallable=no
CreateUninstallRegKey=no

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl

[code]
#ifndef UNICODE
  #error Unicode version of Inno Setup is required to compile this script
#endif
const
  CP_UTF8 = 65001;

function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD; lpWideCharStr: string; cchWideChar: Integer; lpMultiByteStr: AnsiString; cbMultiByte, lpDefaultChar: Integer; lpUsedDefaultChar: Longint): Integer; external 'WideCharToMultiByte@kernel32.dll stdcall';

var
  RevEmuPage: TInputQueryWizardPage;

///////////////////////////////////////////////////
procedure RevEmuPageEditsOnChange(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := (RevEmuPage.Values[0] <> '');
end;

///////////////////////////
procedure InitializeWizard;
begin
  RevEmuPage := CreateInputQueryPage(wpInfoAfter, 'Игровая информация', '', 'Пожалуйста, введите введите свой ник и Clan-tag и нажмите Далее.');
  with RevEmuPage do
  begin
    Add('Ник:', False);
    Add('Клан-тэг:', False);
    Edits[0].OnChange := @RevEmuPageEditsOnChange;
  end;
end;

/////////////////////////////////////////////////////
function UTF8Encode(const Value: string): AnsiString;
var
  Len: Integer;
begin
  if Value = '' then Exit;
  Len := WideCharToMultiByte(CP_UTF8, 0, Value, -1, '', 0, 0, 0);
  if Len = 0 then Exit;
  Result := StringOfChar(#0, Len - 1);
  if WideCharToMultiByte(CP_UTF8, 0, Value, -1, Result, Len, 0, 0) = 0 then Exit;
end;

/////////////////////////////////////////////
procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    RevEmuPage.ID:
      WizardForm.NextButton.Enabled := (RevEmuPage.Values[0] <> '');
    wpFinished:
      begin
        SetIniString('steamclient', 'PlayerName', UTF8Encode(RevEmuPage.Values[0]), ExpandConstant('{app}\rev.ini'));
        SetIniString('steamclient', 'ClanTag', UTF8Encode(RevEmuPage.Values[1]), ExpandConstant('{app}\rev.ini'));
      end;
  end;
end;

[Stealthmax]

Я бы оставил как есть (запись бекапа во отдельный файл) »

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

[Batistas]

Batistas, узнаю свой г-код, сейчас бы я так написал: Скрытый текст »

Да, это именно Ваш код. Спасибо большое за помощь!

[palsn2000]

Доброго всем времени. Подскажите пожалуйста как добавить информацию из рег файла через секцию [_Run_] в скрытом режиме и без вопросов о добавлении из небезопасного источника.

Сразу оговорюсь, что секция реестра инно не подходит, так как цель моя заключается в следующем:
Делаю сборку программ (одной из которых является Notepad++) так вот этот Notepad++ интегрируется в проводник при помощи регистрируемой библиотеки, которая сама генерирует строку в реестре Edit with &Notepad++ и заменяет то, что пишет инно из секции реестра.
Вот я и хочу, добавить данные (заменить Edit with на Открыть с помощью) на этапе postinstall. или подскажите пожалуйста как это реализовать через секцию [_Code_]
Заранее спасибо.

[TryRooM]

palsn2000, Пробуйте.

Скрытый текст

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssPostInstall then begin
if IsWin64 then
RegWriteStringValue(HKLM64, 'SOFTWARE\Classes\CLSID\{B298D29A-A6ED-11DE-BA8C-A68E55D89593}\Settings',  'Title', 'Открыть с помощью Notepad++')
end else begin
RegWriteStringValue(HKLM, 'SOFTWARE\Classes\CLSID\{B298D29A-A6ED-11DE-BA8C-A68E55D89593}\Settings',  'Title', 'Открыть с помощью Notepad++')
end;
end;

[kalyanbi4]

Всем добрый день!
Подскажите пожалуйста - создаю дистрибутив - устанавливаю его. После установки в меню "Пуск" не появляется пункт с установленным ПО, а появится он только после установки другого дистрибутива или после перезагрузки ПК.
С чем может быть связано?

[Painkiller]

Народ, тупой вопрос , в какой переменной находиться путь к %userprofile%?

[El Sanchez]

Народ, тупой вопрос , в какой переменной находиться путь к %userprofile%? »

Painkiller, например, в {%USERPROFILE}

[Painkiller]

Painkiller, например, в {%USERPROFILE} »

Пробовал, получаю путь C:\Users\Mazahaka_lab\AppData\Roaming\uTorrent, а мне надо C:\Users\Mazahaka_lab\uTorrent

[Dodakaedr]

Painkiller, Если так показать, разберетесь?

Код:

[setup]
appname=app
appvername=1.0
createappdir=no

[code]
const
CSIDL_PROFILE = $28;

procedure InitializeWizard();
var
s: string;
begin
s := GetShellFolderByCSIDL(CSIDL_PROFILE, false);
WizardForm.WelcomeLabel1.Caption := s+'\uTorrent';
end;